vb.net-2010 - MS Access 2007 との Vb.net 2010 接続

Question

10 個のテキスト ボックス、1 つの登録ボタンと 1 つの終了ボタンを持つフォームを使用しています。MS Access 2007 でデータベースを作成し、ファイルをデスクトップに保存しました。「新しいデータ ソースの追加」で接続しました。プロバイダーとパスは: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\sipl\Desktop\Cust_Dtl.mdbです。しかし、登録をクリックすると、次のエラーが表示されます。

con.Open() - Doesn't have a valid file name.

これが私のコードです：

Public Class Form2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim constring As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\sipl\Desktop\Cust_Dtl.mdb" & System.IO.Directory.GetCurrentDirectory & "Cust_Dtl.mdb"
    Dim insertcmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
    Dim con As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
    con.ConnectionString = constring
    insertcmd.CommandType = CommandType.Text
    insertcmd.CommandText = String.Format("INSERT INTO {0} VALUES ('{1}', '{2}', '{3}', '{4}', '{5}', '{6}', '{7}', '{8}', '{9}', '{10}')", "Table1", TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text)
    insertcmd.Connection = con
    con.Open()
    Try
        insertcmd.ExecuteNonQuery()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try


    con.Close()
End Sub
End Class

この問題の解決にご協力ください。ありがとう。