Ошибка при многократном обращении к БД

 Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\base.accdb;Persist Security Info=false" 'путь к БД. |DataDirectory| - формируется самостоятельно при добавление БД в проект (посмотреть эту строчку можно будет в App.config.
            Dim con As New OleDb.OleDbConnection(conString) 'новое подключение БД использую строковую переменну
            Dim command As New OleDb.OleDbCommand("SELECT Gruppa FROM " & tablauto & " WHERE [Marka]='" & marka & "' and [Model]='" & model & "'", con) 'новая команда построения БД
            
            Try
 
                con.Open()
                Dim DataReader As OleDb.OleDbDataReader = command.ExecuteReader() 'переменная чтения БД
                Do While (IsNothing(TextBox3.Text) = False) 'вечный цыкл (пока соблюдено условие)
                    DataReader.Read() 'читаем бд
 
                    gruppa = DataReader("Gruppa").ToString 'заполняем значением переменной DataReader
                Loop
                con.Close()
            Catch ex As Exception
                'MessageBox.Show(ex.Message, "Бу") 'если нужно отловить ошибки
            End Try

Do While reader.Read()
                Console.WriteLine(reader.GetInt32(0) _
                  & vbTab & reader.GetString(1))
            Loop

gruppa = DataReader("Gruppa").ToString

Do While DataReader11.Read()
Ugon_BTx = DataReader11("Ugon_BTx").ToString
Loop

    Do While DataReader11.Read() && IsNothing(TextBox3.Text) = False
    Ugon_BTx = DataReader11("Ugon_BTx").ToString
    Loop