¿Quien me puede ayudar?

[medu50]

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.

[kkenen]

tienes que comprobar varias cosas:

1) Has declarado la variable db???

2) Donde???

3) Si la has declarado y puedes acceder a ella, la as declarado como database???? "Dim db as DataBase"

4) Si la has declarado correctamente, la has llenado????
Set db = workspaces(0).opendatabase(app.path & "Base.mdb") ????

Si todo esto lo has hecho correctamente, tiene que funcionar.

Suerte colegui.

[medu50]

Hola kkenen, muchas gracias por la ayuda. Parece que estamos en el camino correcto, pero ahora me aparece otro error que no consigo averiguar que esta mal.
Ahora al ejecutarlo me sale que la ruta no se encuentra: "C:\DOCUMENTS AND SETTINGS\CURSO05\ESCRITORIO\SERGIO\PROYECTOEMPLEAD OS.MDB" y es que entre proyecto y empleados debe haber otro backslash (\). No se como poder hacer para indicarle que la ruta correcta es esta: "C:\DOCUMENTS AND SETTINGS\CURSO05\ESCRITORIO\SERGIO\PROYECTO\EMPLEA DOS.MDB". GRACIAS¡¡¡