Vb.net ConnectionString属性尚未初始化

我正在从事班加罗尔大学规定的一个项目。我使用vb.net 2008作为前端，Ms Access 2007作为后端。当我尝试运行该程序时，我得到一个错误，因为ConnectionString属性尚未初始化

这是我使用的代码

private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
    Dim con As New OleDb.OleDbConnection
    Dim cmd As New OleDb.OleDbCommand
    Dim dbProvider As String
    Dim dbSource As String

    dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
    dbSource = "DataSource=C:\My Project\project.mdb"
    con.ConnectionString = dbProvider & dbSource
    con = New OleDb.OleDbConnection

    con.Open()
    cmd.Connection = con
    cmd.CommandText = "Insert Into Application(appno, mname, age, gender, height, weight, address, purpose, bmi, mailid, phoneno, paymnet)" & _
                      "Values('" & Me.appno.Text & "', '" & Me.mname.Text & "', '" & Me.age.Text & "', '" & Me.gender.Text & "', '" & _
                      Me.mheight.Text & "', '" & Me.weight.Text & "', '" & Me.address.Text & "', '" & Me.purpose.Text & "', '" & _
                      Me.bmi.Text & "', '" & Me.mailid.Text & "', '" & Me.phoneno.Text & "', '" & Me.payment.Text & "')"
    cmd.ExecuteNonQuery()
    con.Close()
End Sub

---

您正在创建两个连接，您正在设置第一个连接，因此后一个连接可能是复制粘贴错误

Dim con As New OleDb.OleDbConnection

...

dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbSource = "DataSource=C:\My Project\project.mdb"
con.ConnectionString = dbProvider & dbSource
con = New OleDb.OleDbConnection                  <-- creates a new connection
                                                     without a connection string.

Dim con作为新的OleDb.OleDb连接
...
dbProvider=“Provider=Microsoft.Jet.OLEDB.4.0；”
dbSource=“DataSource=C:\myproject\Project.mdb”
con.ConnectionString=dbProvider&dbSource
con=New OleDb.OleDbConnection您正在创建两个连接，您正在设置第一个连接，因此后一个连接可能是复制粘贴错误

Dim con As New OleDb.OleDbConnection

...

dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbSource = "DataSource=C:\My Project\project.mdb"
con.ConnectionString = dbProvider & dbSource
con = New OleDb.OleDbConnection                  <-- creates a new connection
                                                     without a connection string.

Dim con作为新的OleDb.OleDb连接
...
dbProvider=“Provider=Microsoft.Jet.OLEDB.4.0；”
dbSource=“DataSource=C:\myproject\Project.mdb”
con.ConnectionString=dbProvider&dbSource
con=New-OleDb.OleDbConnection@MadanRaj删除指示行
con=New-OleDb.OleDbConnection
，它根本不应该在那里。@MadanRaj（您可能在sql查询中有一个输入错误，“paymnet”应该是“payment”），先生，我尝试过，当我删除它时，它会说，“找不到可安装的ISAM”@MadanRaj则您的数据库驱动程序很可能未正确安装，或者您在64位计算机上有32位驱动程序，并且正在运行“任何CPU”。如果你需要帮助，你应该开始一个新问题。@MadanRaj如果答案有帮助，请将问题标记为已回答。这也将帮助其他人寻找问题的答案。@MadanRaj删除指示行
con=New-OleDb.OleDbConnection
，它根本不应该在那里。@MadanRaj（您可能在sql查询中有一个输入错误，“paymnet”应该是“payment”）先生，我尝试过，当我删除它时，它说，“找不到可安装的ISAM”。@MadanRaj那么您的数据库驱动程序很可能没有正确安装，或者您在64位计算机上有32位驱动程序，并且正在运行“任何CPU”“。如果需要帮助，你应该开始一个新问题。@MadanRaj如果答案有帮助，请将问题标记为已回答。”。这也将帮助其他人寻找问题的答案。