Запрос на количество записей в БД

 Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=DB.accdb") ' Переменная для подключения базы
                Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
                Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
                Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
 
                DT.Clear() 'Очищаем таблицу
                Dim grz As String
                grz = TextBox2.Text
                SqlCom = New OleDb.OleDbCommand("SELECT СOUNT (*) * FROM Автомобили where ГРЗ =" & grz, Con)
                Con.Open() ' Открываем соединение
                SqlCom.ExecuteNonQuery() 'Выполняем запрос
                DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
                DA.Fill(DT) ' Заполняем таблицу результатми
                If DT.Rows.Count > 0 Then
                    MessageBox.Show("Автомобиль с таким номером уже есть в БД!!", _
                                                          "ОШИБКА", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
   Con.Close() ' Закрываем соединение'

SELECT СOUNT (ГРЗ) * FROM Автомобили where ГРЗ

SqlCom.ExecuteNonQuery() 'Выполняем запрос

Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=DB.accdb") ' Переменная для подключения базы
                Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
                Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
                Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
                Dim grz As String
                grz = TextBox2.Text                
                DA.SelectCommand= New OleDb.OleDbCommand("SELECT СOUNT (ГРЗ) FROM Автомобили where ГРЗ =" & grz, Con)
                DT.Clear() 'Очищаем таблицу
                Dim rows as integer =DA.Fill(DT) ' Заполняем таблицу результатами
                If Rows > 0 Then
                    MessageBox.Show("Автомобиль с таким номером уже есть в БД!!", _
                                                          "ОШИБКА", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
   Con.Close() ' Закрываем соединение'

 DA.SelectCommand = New OleDb.OleDbCommand("SELECT СOUNT (ГРЗ) FROM Автомобили WHERE ГРЗ='" & grz & "'", Con)

Dim DA As New OleDb.OleDbDataAdapter

Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & My.Application.Info.DirectoryPath & "\БД.mdb")

 Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=DB.accdb") ' Переменная для подключения базы
                Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
                Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
                Dim DA As New OleDb.OleDbDataAdapter
                Dim grz As String
                grz = TextBox3.Text
                DA.SelectCommand = New OleDb.OleDbCommand("SELECT СOUNT (ГРЗ) FROM Автомобили WHERE ГРЗ=" & grz, Con)
                DT.Clear() 'Очищаем таблицу
 
                Dim rows As Integer = DA.Fill(DT) ' Заполняем таблицу результатами
                If rows > 0 Then
                    MessageBox.Show("Автомобиль с таким номером уже есть в БД!!", _
                                                          "ОШИБКА", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
 
                Else
 
                    Form1.MyDataSetAvto.Update()
 
                    MessageBox.Show("Новая запись добавлена.", _
                                    "СООБЩЕНИЕ", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                End If
                Con.Close() ' Закрываем соединение'

 Dim rows As Integer = DA.Fill(DT)

DA.SelectCommand= New OleDb.OleDbCommand("SELECT СOUNT(ГРЗ) FROM Автомобили where ГРЗ='" & grz & "'", Con)