Загрёбся, делая подключение:

Public Function StringConnectToBDAccess(ByVal tProvider As String, ByVal tUserID As String, ByVal tPassword As String, ByVal tDataSource As String, ByVal tMode As String) As String         ''Формируем строку соединения с Access         StringConnectToBDAccess = "Provider=" & tProvider &  User ID=" & tUserID & "; "Password=" & tPassword & "; Data Source= " & tDataSource & "; Mode=" & tMode     End Function

Пока не поменял местаvb юзвера с паролем

Ну - да......

Я два дня му....ся
Нету конекшина и хоть тресни......

теперь то уже - есть коннтакт
поменял местами юзера с паролем и попёрла........

Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;  User ID=; Data Source= C:\odbc.mdb; Mode=ReadWrite|Share Deny None

Вообще-то правильнее:
...Jet OLEDB:Database Password="";
User ID=Admin;...
Может в этом дело? Хотя в вашем случае самое правильное эти прараметры вообще исключить - они по умолчанию.