Подключение приложения VB form к базе данных accses, 3 из 4 раз это работает, что я делаю не так?

---

Я подключаю программу VB Form к базе данных access. 3 из 4 таблиц в базе данных подключены и работают в своих собственных datagridviews, но последняя не подключается должным образом. код для всех соединений один и тот же.

Что я уже пробовал:

поэтому я проследил проблему с выходами msgbox до того момента, когда я заполняю свои переменные.
настройки.DA. заполняются чуть выше закомментированных строк. если я закомментирую строку заполнения, программа запустится и выдаст оба сообщения loc, но с ее активностью код застрянет и не будет продолжать работу, а вместо этого игнорирует остальную часть кода, сохраняя базу данных открытой.

Imports System.Data.OleDb
Public Class Admin

    Dim provider As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =")
    Dim dataFile As String = ("Filelocaty.mdb")
    Dim connString As String = provider & dataFile
    Dim myConnection As OleDbConnection = New OleDbConnection
    Dim con As OleDbConnection = New OleDbConnection(connString)

    Dim infoDA As OleDbDataAdapter
    Dim infoDS As DataSet
    Dim cmd1 As New OleDbCommand("SELECT * FROM Info", con)

    Dim RoomDA As OleDbDataAdapter
    Dim RoomDS As DataSet
    Dim cmd2 As New OleDbCommand("SELECT * FROM Rooms", con)

    Dim userDA As OleDbDataAdapter
    Dim userDS As DataSet
    Dim cmd3 As New OleDbCommand("SELECT * FROM Logins", con)

    Dim settingDA As OleDbDataAdapter
    Dim settingDS As DataSet
    Dim cmd4 As New OleDbCommand("SELECT * FROM General", con)

    Private Sub Admin_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        con.Open()

        infoDA = New OleDbDataAdapter(cmd1)
        Dim builder1 As OleDbCommandBuilder = New OleDbCommandBuilder(infoDA)
        infoDS = New DataSet
        Me.infoDA.Fill(infoDS, "Info")
        InfoDG.DataSource = infoDS.Tables("Info").DefaultView
        InfoDG.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill


        RoomDA = New OleDbDataAdapter(cmd2)
        Dim builder2 As OleDbCommandBuilder = New OleDbCommandBuilder(RoomDA)
        RoomDS = New DataSet
        Me.RoomDA.Fill(RoomDS, "Rooms")
        RoomDG.DataSource = RoomDS.Tables("Rooms").DefaultView
        RoomDG.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

        userDA = New OleDbDataAdapter(cmd3)
        Dim builder3 As OleDbCommandBuilder = New OleDbCommandBuilder(userDA)
        userDS = New DataSet
        Me.userDA.Fill(userDS, "Logins")
        UserDG.DataSource = userDS.Tables("Logins").DefaultView
        UserDG.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

        settingDA = New OleDbDataAdapter(cmd4)
        Dim builder4 As OleDbCommandBuilder = New OleDbCommandBuilder(settingDA)
        settingDS = New DataSet
        MsgBox("Loc A")
        settingDA.Fill(settingDS, "General")
        'SettingsDG.DataSource = settingDS.Tables("General").DefaultView
        'SettingsDG.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        MsgBox("Loc b")
        con.Close()
    End Sub

если кто-нибудь знает, где я ошибся, пожалуйста, дайте мне знать! из того, что я могу сказать, код в порядке, и я тщательно проверил свою базу данных.

---