Visual Basic - Porqué me da este error?

Private Sub Command1_Click()
Dim mibase As Database
Dim registro As Recordset
Set mibase = OpenDatabase("c:\mega byte\maestro.mdb")
Set registro = mibase.OpenRecordset("TBNUNFAC", dbOpenDynaset)

registro.AddNew
registro!numfaccodigo = 1
registro!numfacnumero = 5
registro.Update
mibase.Close
End Sub

Run-time error 13
type mistmach

Intentalo asi :
Private Sub Command1_Click()
Dim mibase As Database
Dim registro As Recordset
Set mibase = OpenDatabase("c:\mega byte\maestro.mdb")
Set registro = mibase.OpenRecordset("TBNUNFAC", dbOpenTable)
registro.AddNew
registro!numfaccodigo = 1
registro!numfacnumero = 5
registro.Update
mibase.Close
End Sub
Verfica que tus campos numfaccodigo y numfacnumero sean numericos...saludos!!!

CLARO YA LO VERIFIQUE, Y SON NUMERICOS
TE ACLARO QUE EL ERROR LO PRESENTA EN LINEA :
Set registro = mibase.OpenRecordset("TBNUNFAC", dbOpenTable)
Y SOLO PARA ESTE PROYECTO

Mandame tu proyecto a mi correo para checarlo sino voy a estar dandote respuestas y asi se aclaran mis dudas...espero tu proyecto.