Este ejemplo se lo mande a un compañero del foro, revisalo si te funciona, creo que responde a tu pregunta
Esto declara una coneccion para todo tu proyecto y lo declaras en un modulo general (*.bas)
para poder utilizar la coneccion en cualquier parte del proyecto.
Public Cnn As Connection
Set Cnn = New Connection
With Cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\tudirecctorio\PDA000.MDB"
.Open
End With
En tu formulario haces lo siguiente:
declaras un recordset para trabajar con la coneccion
con el open del recordset cargas la consulta SQL para buscar lo que quieres en la base de datos
dim rsCuenta as new recordset
rscuenta.open "select * from PDAM1001 where cuenta = '" & TEXT1.TEXT & "'",Cnn