Ademas si quieres intenta con algo como esto:
Dim oConn As ADODB.Connection
Dim StrConn as String
Set oConn = New ADODB.Connection
StrConn = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=tu_base.mdb"
oConn.ConnectionString = StrConn
oConn.ConnectionTimeout = 30
Oconn.Open
,...
..