Ayuda con VB6 y SQL2000

[gary666]

a ok mira si trabajas con sps tienes qe agregar una variable tipo command para hacer la conexion con el sql despues se lo asocias a una variable tipo recordset para manipular los datos

Dim adocommand As ADODB.Command
Dim rs As Recordset
Set adocommand = New Command


adocommand.ActiveConnection = Conection
adocommand.CommandText = "spBuscaAgenda"
adocommand.CommandType = adCmdStoredProc
adocommand.CommandTimeout = 120
Set rs = adocommand.Execute
While Not rs.EOF
MsgBox rs!Nombre
rs.MoveNext
DoEvents
Wend
rs.Close
Set adocommand = Nothing

Si no utilizas sp entonces el codigo qedaria


Dim rs As Recordset
Set rs = Conection.Execute("Select * from Agenda")
While Not rs.EOF
MsgBox rs!Nombre
rs.MoveNext
DoEvents
Wend
rs.Close

End Sub

Donde conection es el nombre del obejto donde referenciaste la conexion