郭美美多久出狱:sql语法问题 急！！！！！十万火急！

Private Sub Command1_Click()
bxr = Trim(Text1.Text)
bxsj = Trim(Text2.Text)
bxbm = Trim(Text3.Text)

If bxr <> "" And bxsj <> "" And bxbm <> "" Then
sqlsel = "select * from weixiu where 报修人='" & Trim(Text1.Text) & "' and 报修时间='" & Trim(Text2.Text) & "' and 部门='" & Trim(Text3.Text) & "'"
End If
If bxr = "" And bxsj <> "" And bxbm <> "" Then
sql = "select * from weixiu where 报修时间='" & Trim(Text2.Text) & "' and 部门='" & Trim(Text3.Text) & "'"
End If
If bxr <> "" And bxsj = "" And bxbm <> "" Then
sqlsel = "select * from weixiu where 报修人='" & Trim(Text1.Text) & "' and 部门='" & Trim(Text3.Text) & "'"
End If
If bxr <> "" And bxsj <> "" And bxbm = "" Then
sqlsel = "select * from weixiu where 报修人='" & Trim(Text1.Text) & "' and 报修时间='" & Trim(Text2.Text) & "'"
End If
If bxr = "" And bxsj = "" And bxbm = "" Then
MsgBox "请输入查询条件！"
End If
rstStu = cnn1.Execute(sqlsel) ‘属性使用无效？？？？？
Set DataGrid1.DataSource = rstStu
'rstStu.Close
End Sub
有问题的那句我已经标出来了！什么时间的都不对，有没有高人再给我看看！郁闷死了！