Cerca e ricerca Prova e riprova alla vine c' è l'ho fatta
Questa è la soluzione la lascio qui nel caso in cui serva a qualcuno

Dim objConn2 As New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"user ID=admin;" & _
"Data Source=ut.mdb;Jet OLEDBatabasePassword=fff")