有这样一个表格，字段有GZMS，YY，GLBZ。在text输入GZMS信息，点击查询，显示相应的其它信息。
我编写的程序如下：
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objConn As New OleDb.OleDbConnection
        Dim objDa As New OleDb.OleDbDataAdapter
        Dim objComm As New OleDb.OleDbCommand
        Dim objDs As New DataSet
        Dim WhereStr As String
        WhereStr = ""
        If Trim(TextGZMS.Text) <> "" Then
            WhereStr = "GZMS like Trim(TextGZMS.Text) "
        End If
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source" & "='E:\SY.mdb'"
         = "Select YY,GLBZ From 表1"
        If WhereStr <> "" Then
             = & "where" & WhereStr
        End If
        objComm.Connection = objConn
        objDa.SelectCommand = objComm
        objConn.Open()
        objDa.Fill(objDs, "表1")————————调试运行的时候点击查询查不出，说我这里出问题，其实我这新手也不知道这行是干什么用的
        objConn.Close()
        DataGridView1.DataSource = objDs.Tables("表1")
    End Sub
求指导啊

objDa.Fill(objDs, "表1")—在这一行下面添加以下代码，看看有没有？
msgbox objds.tables(0).rows.count '如果为0，那是你上面的代码中查询语句不正确。建议你将where这个关键词前后各加上一个空格。

其实在赋值结束后,msgbox 在弹出的对话框中就可以看出来你写的查询语句是否符合SQL语法规则。新手常会出现这样的问题——空格有时候是不可以少的

恩，谢谢你的意见啊，程序正在学习改进中，有问题我会再麻烦大家的