Certifique- se de que está correta a conexão....
Na refêrencias adicione o componente ado.
De preferencia o último instalado atualmente baixando o MDAC 2.6
Dim Con as New ADODB.Connection
With Con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Data Source = CaminhoBancodeDados.mdb
.Open
End With