Вы можете использовать это.Создайте модуль и назовите его как mdlConnection.Вставьте этот код ниже.И не забудьте импортировать эту ссылку (ADODB).
Imports ADODB
Public Sub openSys()
On Error GoTo nopath
con1 = New ADODB.Connection
con1.CursorLocation = CursorLocationEnum.adUseClient
con1.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & DBPathS & " ; Persist Security Info=False;Jet OLEDB:Database Password=" & DBpass)
xPathU = True
Exit Sub
nopath:
xPathU = False
MsgBox("Uknown Server Path", vbExclamation)
con1 = Nothing
End Sub
В вашу форму Загрузить в любые формы вашего приложения.
DBPathS = Application.StartupPath & "\Database\MainData.mdb" 'Path of Database
Объявить DBPathS
как строку и con1
как ADODB.Connection и сделайте его общедоступным.
После того, как вы это сделали.Снова в Form_Load в любой форме, вызовите OpenSys следующим образом:
Call OpenSys
Не забудьте импортировать указанную ссылку выше.