Visual Basic - error 13

Buenas Tardes a todo el mundo.
Necesito ayuda, estoy haciendo un programa y en el general declaraciones del formulario yo defino:
Dim tbfactura As TableDef
Dim regfactura As Recordset

y en el Lost Focus de una caja de texto defino:

Set db = DBEngine.Workspaces(0).OpenDatabase("\\Server\Documentos\Mis documentos\Reparaciones\nuevas reparaciones\nueva.mdb")
Set tbfactura = db.TableDefs("reparaciones")
Set regfactura = tbfactura.OpenRecordset(dbOpenDynaset)
.............

Me da error 13 en tiempo de ejecucion. Me dice que los tipos no coinciden y me marca en amarillo la línea:
Set regfactura = tbfactura.OpenRecordset(dbOpenDynaset)

Alguien sabe xq me da esta error, si me falta definir o declarar en algun sitio, sino no puedo seguir con la busqueda de datos. MUCHAS GRACIAS A TODOS.
Un saludo.