Error 13 en Visual Basic

[yoselin]

Hola

Necesito saber porque el siguiente programa me da el error 13 en tiempo de ejecucion en la linea en rojo (no coinciden los tipos).

Estoy en access tratando de leer una tabla.

Public Function carga()

Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String

' Devuelve una referencia a la base de datos activa.

Set dbs = CurrentDb()
strSQL = "SELECT * FROM 1_USU_PARAM"
Set rst = dbs.OpenRecordset(strSQL) rst.MoveLast
Debug.Print rst.RecordCount
rst.Close
Set dbs = Nothing
End Function

Gracias.. ojala alguien tenga algn dato que me ayude.
Chao
Yoselin