¿Quien me puede ayudar?

medu50
13 de Abril del 2004
Tengo el siguiente codigo y al ejecutarlo me da un error en la siguiente linea //Set tRs = db.OpenRecordset(sBuscar, dbOpenSnapshot)// me dice que la variable db no esta definida.

Private Sub CmdBuscar_Click()
Dim sBuscar As String
Dim tRs As Recordset
Dim tLi As ListItem
sBuscar = "SELECT * FROM CURSOS WHERE CURSO LIKE \'" & Text2 & "\'ORDER BY CURSO"
Set tRs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
With tRs
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set tLi = ListView1.ListItems.Add(, , .Fields("CURSO") & "")
tLi.SubItems(1) = .Fields("CURSO") & ""
tLi.SubItems(2) = .Fields("SUB_CURSO") & ""
.MoveNext
Loop
End If
End With
End Sub

¿Que esta mal? ¿De que tipo tiene que ser la variable db?
¿Alguien puede ayudarme? Muxas gracias.

Meifer
13 de Abril del 2004
Declara asi para ver si te funiona
es la conexion a la base de datos

Private db As New ADODB.Connection