大家帮着看一下怎么修改，总是报一个FROM 子句语法错误
代码
Public Class Form3

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 TextBox1.Text <> "" Then
WhereStr = "time='" + TextBox1.Text.Trim() + "'"
End If
'设置连接字符串，告诉程序应当如何连接到数据库
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\seis\seismsys\seismsys\Database\seisys.mdb'"
'设置SQL命令，告诉程序如何取数
objComm.CommandText = "Select xuhao as 序号,time as 时间,result as 结果,station as 台站代码 From tb_result"
If WhereStr <> "" Then
objComm.CommandText = objComm.CommandText & "where" & WhereStr
End If
objComm.Connection = objConn
objDa.SelectCommand = objComm
objConn.Open()
objDa.Fill(objDs, "tb_result")
objConn.Close()
'把DataGridView1的DataSource属性设置为刚刚取到得数据表，这样就可以显示数据
DataGridView1.DataSource = objDs.Tables("tb_result")
End Sub
End Class

[解决办法]
If WhereStr <> "" Then
objComm.CommandText = objComm.CommandText & " where " & WhereStr
End If
是不是Where两边没空格啊？你debug一下这个语句试下。