求助!!请教用VB查询SQL的问题!!急切希望您的帮助

我在VB中用combo控件,选择书名和作者进行分类查询,然后在text中输入相应的书名或作者,点command进行模糊查询SQL中的表 想在VB中的datagrid中显示查询的结果. 代码如下:
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "dsn=joyce", "sa", ""
Combo1.AddItem "按书名查询", 0
Combo1.AddItem "按作者查询", 1
End Sub

Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Dim sql As String
If Combo1.Text = Combo1.List(0) Then
sql = "select * from book where 书名 like '" & Text1.Text & "%'"
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
End If
If Combo1.Text = Combo1.List(1) Then
sql = "select * from book where 作者 like '" & Text1.Text & "% '"
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
End If
result.Show
director.Hide
Set DataGrid1.DataSource = rs
End Sub
(以设置模块代码:Publ

求助!!请教用VB查询SQL的问题!!急切希望您的帮助 VB 中,用sql语法怎么实现数据库的查询 求助! 关于SQL查询的 用SQL 查询语句请教 vb查询SQL语句的问题 VB SQL 查询语句的问题 vb 的sql语句查询问题 VB中的SQL查询 vb sql 查询 求教VB查询SQL