Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Dim MySQLConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ZMKJ.accdb;Jet OLEDB:Database Password=123"
        Dim MyConnection As New System.Data.OleDb.OleDbConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyDepartmentTable As New Data.DataTable()
        Dim MySQL As String = "select * from 通讯录 where (分类='" + Me.分类ToolStripComboBox.Text + "') "
        Dim MyAdapter As New OleDbDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyDepartmentTable)
        Me.通讯录DataGridView.DataSource = MyDepartmentTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
End Sub
请各位大师帮忙，谢谢！

不知道为什么没有人回答我的问题？也许是这个问题太简单了吧。
这两天我一直上网查询要关的问题，可是一无所获。通过与SQL数据库类似的参数化查询问题处理方法进行比较，虽然方法不同，但是最终还是解决了上述问题，无需写代码。
问题已经解决。谢谢各位大师！

不明白你想表达什么？