Vincular tablas de SQL Server con ADO

[marrot]

Necesitaría saber como puedo vincular tablas de SqlServer 2000 con ADO desde Visual Basic 6.0. Gracias

[changosman]

men de la siguiente manera

Dim rs As New Recordset
Dim Cn As New Command
Dim cmd As New Connection


cmd.Open "UID=usuario;pwd=password;dsn=OBDC"
rs.Open Source:="SELECT * FROM Nombre_Tabla", ActiveConnection:=cmd
While (Not rs.EOF)
Debug.Print rs(0)
Text1.Text = rs("Campo")
rs.MoveNext
Wend