ник: час
Загрёбся, делая подключение:
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 юзвера с паролем
