Acabei de testar e funcionou... segue o código abaixo.
Dim db as new adodb.connection
Dim strConecta As String
Screen.MousePointer = vbHourglass
If Db.State = adStateOpen Then
Db.Close
End If
strConecta = ""
strConecta = strConecta & "Provider=Microsoft.Jet.OLEDB.4.0;"
strConecta = strConecta & "User ID=;"
strConecta = strConecta & "Password=;"
strConecta = strConecta & "Data Source=" & ||
te12XXX|banco|Teste.mdb;"
strConecta = strConecta & "Persist Security Info=True"
Db.ConnectionString = strConecta
'ABRE A CONEXÃO
Db.Open
obs: se o mdb está na o diretorio c:|Programa|Arquivo|Banco|banco.mdb e vc fazer sharing do Diretório Banco vc deverá colocar somente ||maquina|banco|banco.mdb