Занесение данных в базу access через VB

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim s1, s2, s3, s4 As String
        Dim r As DialogResult
        Dim k As Integer
        k = Tabl1.CurrentRow.Cells("Код").Value
 
        Form2.TextBox2.Text = Tabl1.CurrentRow.Cells("№_договор").Value
        Form2.TextBox3.Text = Tabl1.CurrentRow.Cells("Заказчик").Value
        Form2.TextBox4.Text = Tabl1.CurrentRow.Cells("Дни до сдачи").Value
        If Not DBNull.Value.Equals(Tabl1.CurrentRow.Cells("Сумма договоров").Value) Then
            Form2.TextBox5.Text = Tabl1.CurrentRow.Cells("Сумма договоров").Value
        Else
            Form2.TextBox5.Text = 0
        End If

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim k As Integer
        Dim i As Integer = DGV1.CurrentRow.Index
        k = dt.Rows(i)("Kod")
        TextBox1.Text = k
    End Sub

Public dt As DataTable

Imports System.Data.OleDb
Module Module1
    Public conn As OleDbConnection
    Public dt As DataTable
 
 
    Public Sub FillGrid(ByVal Tabl1 As DataGridView, ByVal cmd As String, ByVal TableName As String)
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = cmd
 
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, TableName)
        Tabl1.DataSource = ds
        Tabl1.DataMember = TableName
 
    End Sub
    Public Sub FillGrid2(ByVal Tabl1 As DataGridView, ByVal cmd As String, ByVal TableName As String)
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = cmd
 
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, TableName)
        Tabl1.DataSource = ds
        Tabl1.DataMember = TableName
    End Sub
 
    Friend Sub cnnDB()
        conn = New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\410000\WindowsApplication12\WindowsApplication1\baza.mdb;Persist Security Info=False;"
        If conn.State = ConnectionState.Closed Then conn.Open()
 
    End Sub
 
    Friend Function InsertToTable(ByVal tblIns As String)
        Dim ins As String = "INSERT INTO  " & tblIns & "" _
                           & "(Внутренний_№,Адрес,Заказчик,Площадка,Работы,Дата_торгов,Сумма_контракта,Цех)" _
      & " VALUES ('" & Form2.TextBox1.Text & "','" & Form2.TextBox2.Text & "'," _
      & "'" & Form2.TextBox3.Text & "','" & Form2.TextBox4.Text & "','" & Form2.TextBox5.Text & "','" & Form2.DateTimePicker1.Text & "','" & Form2.TextBox6.Text & "','" & Form2.ComboBox1.Text & "')"
        Return ins
    End Function
 
    Friend Sub insertData()
        cnnDB()
        Dim cmd As New System.Data.OleDb.OleDbCommand(InsertToTable(Form2.ComboBox1.Text), conn)
 
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        conn.Close()
        MsgBox("Загрузилась строка в таблицу " & Form2.TextBox6.Text & " ")
    End Sub
End Module

Imports System.Data.OleDb
Module Module1
    Public st, st2 As String
    Dim Con As OleDbConnection
    Dim dt1 As Data.DataTable
    Dim dt2 As Data.DataTable
    Dim DA As OleDb.OleDbDataAdapter
    Dim SqlCom As OleDb.OleDbCommand
    Friend Sub FillGrid1()
        dt1 = New DataTable
        Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & My.Application.Info.DirectoryPath & "/baza2.mdb") '
        SqlCom = New OleDbCommand(st, Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        DA = New OleDb.OleDbDataAdapter(SqlCom)
        dt1.Clear()
        DA.Fill(dt1)
        Form1.Tabl1.DataSource = dt1
        Con.Close()
    End Sub
    Friend Sub InsertToTable()
        Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & My.Application.Info.DirectoryPath & "/baza2.mdb") '
        Con.Open()
        SqlCom = New OleDb.OleDbCommand(st2, Con)
        SqlCom.ExecuteNonQuery()
        Con.Close()
    End Sub
    Friend Sub DGVcol()
        Form1.Tabl1.Columns(0).Visible = False
        Form1.Tabl1.Columns(1).Width = 110
        Form1.Tabl1.Columns(2).Width = 100
        Form1.Tabl1.Columns(3).Width = 80
        Form1.Tabl1.Columns(4).Width = 80
        Form1.Tabl1.Columns(5).Width = 80
        Form1.Tabl1.Columns(6).Width = 80
        Form1.Tabl1.Columns(7).Width = 80
        Form1.Tabl1.Columns(8).Width = 80
        Form1.Tabl1.Columns(1).HeaderText = "Внутренний №"
        Form1.Tabl1.Columns(2).HeaderText = "№ Договора"
        Form1.Tabl1.Columns(3).HeaderText = "Заказчик"
        Form1.Tabl1.Columns(4).HeaderText = "Дни до сдачи"
        Form1.Tabl1.Columns(5).HeaderText = "Уведомление"
        Form1.Tabl1.Columns(6).HeaderText = "Сдача"
        Form1.Tabl1.Columns(7).HeaderText = "Сумма договора"
        Form1.Tabl1.Columns(8).HeaderText = "Цех"
        Form1.Tabl1.Width = 760
        Form1.Tabl1.RowHeadersWidth = 50
        Form1.Tabl1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        Form1.Tabl1.RowTemplate.DefaultCellStyle.WrapMode = DataGridViewTriState.[True]
        If Form1.Tabl1.RowCount > 0 Then
            For i1 As Integer = 0 To Form1.Tabl1.Rows.Count - 1
                Form1.Tabl1.Rows(i1).HeaderCell.Value = Val(i1 + 1).ToString
            Next i1
        End If
    End Sub
End Module