Hola.. para empezar me imagino que estás usando ADO, si es así para declarar tu recordset sería:
Dim tRs As New ADODB.Recorset
..
...
..
.
Set tRs = cnn.Execute(sBuscar)
..
Solo espero que tu variable cnn tambien la tengas declarada como:
Dim cnn as new ADODB.Connection
Saludos y suerte
