请教专家

运行如下代码：

Forms("选择课程").Open()
Dim xmbl As String
Dim xhbl As String
Dim tbl1 As Table = Tables("课程记录")

DataTables("课程记录").AllowEdit = True
If tbl1.Current IsNot Nothing Then
   tbl1.Current("序号")=  vars("xh")
   xhbl = tbl1.Current("序号")
   xmbl = tbl1.Current("姓名")
   End If
Tables("课程记录").save()
CurrentTable.current.load
MessageBox.Show(xhbl)
Dim dr As DataRow
dr = DataTables("学习记录").Find("序号 = xhbl and 姓名 = xmbl ")
If dr IsNot Nothing Then \'如果找到的话
    Output.Show("姓名:" & dr("姓名"))
    Output.Show("序号:" & dr("序号"))
End If

\'CurrentTable.DataTable.load
DataTables("课程记录").AllowEdit = False

报错如图：

此主题相关图片如下：360截图20160601195147054.jpg

自己感觉是

dr = DataTables("学习记录").Find("序号 = xhbl and 姓名 = xmbl ")

有错误，表达式里引用变量不知道怎么写