Base de Datos de Access

Estoy Conectando una base de datos de access desde visual basic, el código que estoy utilizando ya lo había utilizado antes pero ahora cuando intento guardar un registro me dice que la variable de Tipo Object o la variable de tipo With no esta establecida, este es el código que estoy Utilizando
Option Explicit Dim Ruta As String
Public MiBase As Database
Public TablaRegistro As Recordset
Public TablaMatricula As Recordset
Public tablaMaestros As Recordset  
Public Sub EnlazarBase()
Ruta = "" & App.Path & "\Matricula.mdb"
Set MiBase = OpenDatabase(Ruta)
Set TablaRegistro = MiBase.OpenRecordset("Ficha")
Set TablaMatricula = MiBase.OpenRecordset("Matricula")
Set tablaMaestros = MiBase.OpenRecordset("Maestros")
End Sub