Visual studio 2010 我正在使用Visual Studio 2010和MS Access 2010构建一个基于搜索记录主题的程序。生成显示成功，但发生异常

导入System.Data.OleDb

公开课表格6

Inherits System.Windows.Forms.Form
Dim myForm2 As Form2
Dim cnn As OleDbConnection
Dim connectionString As String

Private Sub Form6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    connectionString = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\dell\Desktop\FEHMS\DBFEHMS.accdb;"
    cnn = New OleDbConnection(connectionString)
End Sub

Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
    If cbounit.Text = "" And cbotype.Text = "" And chk7.Checked = False And chk14.Checked = False Then
        Me.DataGridView1.Hide()
        MessageBox.Show("No Parameters Entered!", "Provide Parameters",
                       MessageBoxButtons.OK, MessageBoxIcon.Error)
        Me.DataGridView1.Hide()
    ElseIf cbounit.Text <> "" And cbotype.Text = "" And chk7.Checked = False And chk14.Checked = False Then
        Dim SQLString As String = "SELECT Table832.[Jobno], Table832.[BAno], Table832.[Unit], Table832.[Type], Table832.[Defects], Table832.[Status], Table832.[Datein], Table832.[Dateout], Table832.[Morethan7], Table832.[Morethan14] FROM Table832 WHERE ((Table832.[Unit]= cbounit.text));"
        Dim DataSet1 As New DataSet()
        Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, cnn)
        cnn.Open()
        Me.DataGridView1.Show()
        **OleDbDataAdapter1.Fill(DataSet1, "Table832") 'this code line shows error
        DataGridView1.DataSource = DataSet1.Tables("Table832") ' this code line shows error**

    End If
End Sub

继承System.Windows.Forms.Form
将myForm2设置为Form2
将cnn设置为OLEDB连接
Dim connectionString作为字符串
私有子表单6_Load（ByVal sender作为对象，ByVal e作为System.EventArgs）处理Me.Load
connectionString=“Provider=Microsoft.ACE.OLEDB.12.0；数据源=C:\Users\dell\Desktop\FEHMS\DBFEHMS.accdb；”
cnn=新的OLEDB连接（连接字符串）
端接头
私有子BTN搜索\单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理BTN搜索。单击
如果cbounit.Text=“”和cbotype.Text=“”以及chk7.Checked=False和chk14.Checked=False，则
Me.DataGridView1.Hide（）
MessageBox.Show（“未输入参数！”，“提供参数”，
MessageBoxButtons.OK，MessageBoxIcon.Error）
Me.DataGridView1.Hide（）
ElseIf cbounit.Text“”和cbotype.Text=”“以及chk7.Checked=False和chk14.Checked=False，然后
将SQLString设置为String=“选择Table832.[Jobno]，Table832.[BAno]，Table832.[Unit]，Table832.[Type]，Table832.[Defects]，Table832.[Status]，Table832.[Datein]，Table832.[Dateout]，Table832.[Morethan7]，Table832.[Morethan14]，从Table832中（（Table832.[Unit]=cbounit.text））；”
Dim数据集1作为新数据集（）
将OleDbDataAdapter1设置为System.Data.OleDb.OleDbDataAdapter=New System.Data.OleDb.OleDbDataAdapter（SQLString，cnn）
cnn.Open（）
Me.DataGridView1.Show（）
**OleDbDataAdapter1.Fill（DataSet1，“Table832”）'此代码行显示错误
DataGridView1.DataSource=DataSet1.Tables（“Table832”）'此代码行显示错误**
如果结束
端接头

---

此程序已成功构建，但运行时，它确实会给出任何输出并在标记行中显示错误

构建成功和运行成功并不是相互排斥的。OLEDBEException:“没有为一个或多个必需参数提供值。”如果您能为我的问题提供解决方案，这将是一个很大的帮助…谢谢