1
Private Sub Form_Load()
con
cnItem.Open
cnItem.Open "select * from login", Connection, adOpenDynamic, adLockOptimistic
rs.Open "select * from login", Connection, adOpenDynamic, adLockOptimistic
cnItem.ConnectionString = "DRIVER=SQL Server;SERVER=SANKET;APP=Visual Basic;WSID=SANKET;DATABASE=inventory;Network=DBMSL PCN;Trusted_Connection=Yes"
'cnItem.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DRIVER=SQL Server;SERVER=SANKET;APP=Visual Basic;WSID=SANKET;DATABASE=inventory;Network=DBMSL PCN;Trusted_Connection=Yes"
Command.ActiveConnection = cnItem
Dim ResultSet As New ADODB.Recordset
Command.CommandText = "WELCOME"
End Sub
