Public conn As New ADODB.Connection
    Public rs As New ADODB.Recordset


 Sub OpenDB()
        Dim s As String
        's = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=путь к бд.accdb;Uid=Admin;Pwd=;"
        s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=путь к бд в формате accdb;Persist Security Info=True"
        conn = Nothing
        conn = New ADODB.Connection
        conn = s
        conn.Open()
        If conn.State = 1 Then
            MsgBox("Соединение установлено")
        Else
            MsgBox("Соединение не установлено")
        End If
    End Sub