Problema con conexión a MS Access

Hola Experto:
Mi pregunta es la siguiente: Trata que tengo problemas con la conexión a access este es mi código
Modulo: variables:
Global base As New ADODB.Connection
Global rsusuario As New ADODB.Recordset
Modulo: sentencias.
Sub main()
With base
.CursorLocation = adUseClient
.Open Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA\ALMACEN.mdb;Persist Security Info=False"
frm_login.Show
End With
End Sub
Y me sale el siguiente error:
Error '-2147467259 (80004005)' en tiempo de ejecución: [Microsoft][Administrador de controladores ODBC] El nombre del origen de datos no se encontró y no se especificó ningún controlador predeterminado
Gracias de antemano