如何使用oledb通过vb.net连接到安全的ms访问数据库

Question

我在ms access 10中创建了一个数据库database1.mdb。

我以独占模式打开它并将密码设置为abcd12 我正在使用vb.net来插入数据＆amp;从该数据库中删除数据但不知何故无法连接。有什么想法可以联系到什么？

Dim FilePath As String = "C:\Users\johnny\database1.mdb"
dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & _ 
FilePath & ";Jet OLEDB:Database Password=abcd12;")

在下面插入声明：

dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & FilePath & ";Jet OLEDB:Database Password=abcd12;")
    Try
        dbconn.Open()
        strSQL = "INSERT INTO myTable ([col1],[col2],[col3],[col4],[col5]) VALUES (?,?,?,?,?)"
        objcmd = New OleDbCommand(strSQL, dbconn)

        objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@col1", "user12345"))    
        objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@col2", "user2345"))
        objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@col3", "user3456"))
        objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@col4", "user4567"))       
        objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@col5", "user5678"))
        objcmd.ExecuteNonQuery()
        dbconn.Close()
    Catch myException As System.Exception
        Windows.Forms.MessageBox.Show(myException.Message)
    End Try