Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Andrew\OneDrive\文件\研究生\油水\实验数据处理\油水分离实验数据数据库.mdb;") Dim adapter As New OleDbDataAdapter("SELECT * FROM 含乳化剂 where 分离效率＞’Label3.Text‘", connection) Dim dataset As New DataSet() adapter.Fill(dataset, "含乳化剂") DataGridView1.DataSource = dataset.Tables("含乳化剂") For Each row As DataGridViewRow In DataGridView1.Rows If row.Cells("分离效率").Value.ToString().Equals(Label3.Text) Then row.Selected = True Exit For ElseIf MsgBox(“数据库中未查询到”) Then Me.Close() Label3.Text = "" End If Next 这段代码报错，检查并优化这段代码

这段代码可能有以下几个问题：

1. 在 SQL 语句中，`分离效率＞’Label3.Text‘` 部分应该改为 `分离效率>'" & Label3.Text & "'"`，以将 Label3.Text 的值动态地插入 SQL 语句中。

2. 在 `ElseIf` 语句中，`MsgBox` 函数应该改为 `MessageBox.Show` 函数，以正确显示消息框。

下面是修改后的代码：

Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Andrew\OneDrive\文件\研究生\油水\实验数据处理\油水分离实验数据数据库.mdb;")
Dim adapter As New OleDbDataAdapter("SELECT * FROM 含乳化剂 where 分离效率>'" & Label3.Text & "'", connection)
Dim dataset As New DataSet()
adapter.Fill(dataset, "含乳化剂")
DataGridView1.DataSource = dataset.Tables("含乳化剂")
If DataGridView1.Rows.Count > 0 Then
    For Each row As DataGridViewRow In DataGridView1.Rows
        If row.Cells("分离效率").Value.ToString().Equals(Label3.Text) Then
            row.Selected = True
            Exit For
        End If
    Next
Else
    MessageBox.Show("数据库中未查询到")
    Me.Close()
    Label3.Text = ""
End If