Dim k As Integer = 0
        Dim Con2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=" + bpath) ' Переменная для подключения базы
        Dim SqlCom2 As OleDb.OleDbCommand ' Переменная для Sql запросов
        SqlCom2 = New OleDb.OleDbCommand("SELECT COUNT(*) FROM [Users] WHERE [TabNum] = @T1", Con2) ' Указываем строку запроса и привязываем к соединению
        SqlCom2.Parameters.Add("@T1", OleDbType.WChar).Value = usadm.DataGridView1.CurrentRow.Cells(0).Value
        Con2.Open() ' Открываем соединение
        SqlCom2.ExecuteNonQuery() 'Выполняем запрос
        k = SqlCom2.ExecuteScalar()
        If k > 0 Then
            MsgBox("Такая запись уже существует!")

Dim Con1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=" + bpath) ' Переменная для подключения базы
    Dim SqlCom1 As OleDb.OleDbCommand ' Переменная для Sql запросов
    Dim DT1 As New Data.DataTable ' Таблица для хранения результатов запроса
    Dim DA1 As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
    Dim k As Integer
 
 DT1.Clear() 'Очищаем таблицу
        SqlCom1 = New OleDb.OleDbCommand("SELECT [TabNum],[LastName],[FirstName],[MiddleName],[Dep],[Post],[UserType],[BasPwd] FROM [Users]", Con1) ' Указываем строку запроса и привязываем к соединению
        Con1.Open() ' Открываем соединение
        SqlCom1.ExecuteNonQuery() 'Выполняем запрос
        DA1 = New OleDb.OleDbDataAdapter(SqlCom1) 'Через адаптер получаем результаты запроса
        DataGridView1.DataSource = DT1 ' Привязываем Грид к источнику данных
        DA1.Fill(DT1) ' Заполняем таблицу результатми
        DataGridView1.Columns(0).HeaderCell.Value = "Таб.#"
        DataGridView1.Columns(1).HeaderCell.Value = "Фамилия"
        DataGridView1.Columns(2).HeaderCell.Value = "Имя"
        DataGridView1.Columns(3).HeaderCell.Value = "Отчество"
        DataGridView1.Columns(4).HeaderCell.Value = "Подразделение"
        DataGridView1.Columns(5).HeaderCell.Value = "Должность"
        DataGridView1.Columns(6).HeaderCell.Value = "Тип"
        DataGridView1.Columns(6).HeaderCell.Value = "Пароль"
        Con1.Close() ' Закрываем соединение
        Me.DataGridView1.DataSource = DT1

Con4.Open()
                SqlCom4 = New OleDb.OleDbCommand("INSERT INTO [Users] ([TabNum], [LastName], [FirstName], [MiddleName], [Dep], [Post], [Usertype], [Description], [BasPwd]) VALUES (@TabNum, @LastName, @FirstName, @MiddleName, @Dep, @Post, @Usertype, @Description, @BasPwd)", Con4)
                SqlCom4.Parameters.Add("@TabNum", OleDb.OleDbType.WChar).Value = TextBox1.Text
                SqlCom4.Parameters.Add("@LastName", OleDb.OleDbType.WChar).Value = TextBox2.Text
                SqlCom4.Parameters.Add("@FirstName", OleDb.OleDbType.WChar).Value = TextBox3.Text
                SqlCom4.Parameters.Add("@MiddleName", OleDb.OleDbType.WChar).Value = TextBox6.Text
                SqlCom4.Parameters.Add("@Dep", OleDb.OleDbType.WChar).Value = ComboBox1.SelectedItem
                SqlCom4.Parameters.Add("@Post", OleDb.OleDbType.WChar).Value = ComboBox2.SelectedItem
                SqlCom4.Parameters.Add("@UserType", OleDb.OleDbType.WChar).Value = ComboBox3.SelectedItem
                SqlCom4.Parameters.Add("@Description", OleDb.OleDbType.WChar).Value = TextBox9.Text
                SqlCom4.Parameters.Add("@BasPwd", OleDb.OleDbType.WChar).Value = TextBox8.Text
                SqlCom4.ExecuteNonQuery()
                Con4.Close()
                MessageBox.Show("Новый пользователь успешно добавлен!", _
                                    "Добавление нового пользователя", MessageBoxButtons.OK, MessageBoxIcon.Information)
                TextBox1.Clear()
                TextBox2.Clear()
                TextBox3.Clear()
                TextBox6.Clear()
                TextBox8.Clear()
                TextBox9.Clear()
                ComboBox1.SelectedIndex = -1
                ComboBox2.SelectedIndex = -1
                ComboBox3.SelectedIndex = -1
                Me.Close()
                usadm.Show()