unable to connect VB 6.0 to sql server2000

[sanketpatel50]

Private Sub Form_Load()
con
cnItem.Open
cnItem.Open "select * from login", Connection, adOpenDynamic, adLockOptimisti c
rs.Open "select * from login", Connection, adOpenDynamic, adLockOptimisti c
cnItem.Connecti onString = "DRIVER=SQL Server;SERVER=S ANKET;APP=Visua l Basic;WSID=SANK ET;DATABASE=inv entory;Network= DBMSLPCN;Truste d_Connection=Ye s"
'cnItem.Connect ionString = "Provider=MSDAS QL.1;Persist Security Info=False;Exte nded Properties="DRI VER=SQL Server;SERVER=S ANKET;APP=Visua l Basic;WSID=SANK ET;DATABASE=inv entory;Network= DBMSLPCN;Truste d_Connection=Ye s"
Command.ActiveC onnection = cnItem
Dim ResultSet As New ADODB.Recordset
Command.Command Text = "WELCOME"

End Sub