vb数据库datagrid和adodc控件查询

Question

现在已经把数据库连接了起来，现在要实现输入学号或者姓名可以显示那一段的数据。
command1事件代码如下：
Private Sub Command1_Click()
Dim xh As Integer
Dim xm As String
If Option1.Value = True Then
bh = Text1.Text
Adodc1.RecordSource = "select * form stu where 学号 = '" & xh & "'"
Adodc1.Refresh
Set Form3.DataGrid1.DataSource = Adodc1
ElseIf Option2.Value = True Then
xm = Text1.Text
Adodc1.RecordSource = "select * form stu where 姓名 = '" & xm & "'"
Adodc1.Refresh
Set Form3.DataGrid1.DataSource = Adodc1
End If
End Sub

操作符丢失还有refresh也有问题，求高手指导。。
这段查询代码到底该怎么写，还有其他的设置的问题，能详细的麻烦都详细说一下，谢谢了。
网上的那些答案我都看过了，貌似没多大用，希望有个人能帮我这个忙！再谢谢了！

Answer 1

command1事件代码如下：
Private Sub Command1_Click()
on error goto xerr
Dim xh As Integer
Dim xm As String
If Option1.Value = True Then
xh = Text1.Text
Adodc1.RecordSource = "select * form stu where 学号='" & xh & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
ElseIf Option2.Value = True Then
xm = Text1.Text
Adodc1.RecordSource = "select * form stu where 姓名='" & xm & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End If
exit sub
xerr:
MsgBox Err.Description, vbInformation, "提示"
End Sub追问

还是不对。。说什么语法错误，操作符丢失。