想要实现两个条件查询，一个combo一个text，但是text的条件不起作用。
运行是出错，出错地方如下：
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
应该怎么改？

贴出来SQL语句

Dim sql As String
Dim rs_find As New ADODB.Recordset
Dim conn As String
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gongyu.mdb;Persist Security Info=False"
sql = "select * from 公寓信息 where 楼号='" & Combo1.Text & "'   and   房间号='" & Text1.Text & "'   "
DataGrid1.AllowUpdate = True
   rs_find.CursorLocation = adUseClient
   rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
   
   DataGrid1.AllowUpdate = False
   
If rs_find.EOF Then
   MsgBox "对不起！没有您要查找的记录", vbOKOnly + vbExclamation, "失败"
   Exit Sub
End If

   Set DataGrid1.DataSource = rs_find

conn没有open

那怎么改?
rs_find.Open sql, conn.open sql, adOpenKeyset, adLockPessimistic

rs_find.open前先打开连接，执行conn.open

conn.Open ="provider=Microsoft.Jet.OLEDB.4.0; data source=" gongyu.mdb;Persist Security Info=False"
sql = "select * from 公寓信息 where 楼号='" & Combo1.Text & "'   and   房间号='" & Text1.Text & "'   "
DataGrid1.AllowUpdate = True
   rs_find.CursorLocation = adUseClient
   rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
   
   DataGrid1.AllowUpdate = False
   
If rs_find.EOF Then
   MsgBox "对不起！没有您要查找的记录", vbOKOnly + vbExclamation, "失败"
   Exit Sub
End If

   Set DataGrid1.DataSource = rs_find
   rs_find.close
End sub
我这样改了。提示无效限定符，Private Sub Command1_Click()这里出错了。是哪里出问题了？