Подключение и работа с базой данных MS Access 2007

Public Class Register
    Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & My.Application.Info.DirectoryPath & "\Nationalpark.accdb") ' Переменная для подключения базы
    Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
    Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
    Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
    Sub LoadAll() 'Процедура чтения всей таблицы из базы 
        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Register]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
 
 
        Con.Close() ' Закрываем соединение
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
 
    End Sub
 
    Private Sub Register_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "NationalparkDataSet.Animals". При необходимости она может быть перемещена или удалена.
        Me.AnimalsTableAdapter.Fill(Me.NationalparkDataSet.Animals)
        'TODO: данная строка кода позволяет загрузить данные в таблицу "NationalparkDataSet.Register". При необходимости она может быть перемещена или удалена.
        Me.RegisterTableAdapter.Fill(Me.NationalparkDataSet.Register)
 
 
    End Sub
 
    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
 
    End Sub
 
    Private Sub Label4_Click(sender As Object, e As EventArgs)
 
    End Sub
 
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs)
 
    End Sub
 
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
        AddStr()
        SqlCom = New OleDb.OleDbCommand("INSERT INTO [Registr] ([Full_name], [Login], [Password]) VALUES (TextBox1.Text,TextBox2.Text,TextBox3.Text)", Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        Con.Close()
    End Sub
 
 
 
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
 
    End Sub
 
 
End Class