小弟有几句sql代码,那位大哥,大姐帮忙看一下

Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim txtsql1 As String
Dim mrc1 As ADODB.Recordset
Dim txtsql2 As String
Dim mrc2 As ADODB.Recordset
Dim txtsql3 As String
Dim mrc3 As ADODB.Recordset
Private Sub Command1_Click()
If Trim(Text1.Text) <> "" Then
txtsql1 = "借书证号= '" & Trim(Text1.Text) & "'"
End If
If Trim(Text2.Text) <> "" Then
If Trim(txtsql1) = "" Then
txtsql1 = "读者姓名= '" & Trim(Text2.Text) & "'"
Else
txtsql1 = txtsql1 & "and 读者姓名= '" & Trim(Text2.Text) & "'"
End If
End If
If Trim(Combo1.Text) <> "" Then
If Trim(txtsql1) = "" Then
txtsql1 = "所在专业'" & Trim(Combo1.Text) & "'"
Else

小弟有几句sql代码,那位大哥,大姐帮忙看一下 SQL的一些题！那位大哥能帮帮小弟？ 那位大哥大姐给小弟解释一下这段代码啊 那位大哥大姐能帮帮小弟 那位大哥能帮帮小弟!!! 那位大哥指点一下小弟?? 那位大哥执教下 SQL 2000连接不上 那位大哥可以帮小弟注册一下优化大师 小弟，我希望那位大哥教我如何做系统！谢谢 毕业设计不好做呀，那位大哥帮帮小弟。