Veo que usas DAO
suponiendo que ya hiciste las referencias....
aqui tengo una funcion que abre un archivo mdb, si hay error la funcion te devuelve false
Código:
Public Function OpenStudentDataBase() As Boolean
'Llamado en Form_Load
Dim MyDataFile As String
On Error GoTo Er:
MyOrderBYSQL = "ORDER BY LastName" 'Aqui pongo mi Order by
MyQuery = "SELECT * FROM Students " 'aqui la consulta
MyDataFile = "C:\Fall 2002.mdb" 'Aqui la Base de datos
Set db = OpenDatabase(MyDataFile) 'Aqui Abro la BD
Set rs = db.OpenRecordset(MyQuery & MyOrderBYSQL, dbOpenDynaset) 'Aqui hago la consulta
OpenStudentDataBase = True 'Si no hubo error, entonces devuelvo TRUE para indicar que todo fue OK
Exit Function
Er:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
OpenStudentDataBase = False 'Devuelvo Falso si algo salio mal al abrir
End Function
Sorry, pero saque el codigo de un programa antiguo que tenia por ahi, por eso el nombre de la funcion y demas :D
Si deseas, te subo ese programa, es bastante sencillo, se lo hize a un amigo que me pidio ese favor, lo tengo en ADO y en DAO