老有关问题有点思路了，VB+ACCESS组合查询

老问题有点思路了，VB+ACCESS组合查询
Option Explicit
Dim rs As New ADODB.Recordset
Private Sub cmdfind_Click()
On Error Resume Next  
rs.Close
rs.CursorLocation = adUseClient  
rs.Open "Select * From 合同表 Where '" & s & "'"", cn, adOpenKeyset, adLockOptimistic"
Set DataGrid1.DataSource = rs
If rs.RecordCount = 0 Then MsgBox "无此合同"
End Sub

Private Sub Form_Load()
Dim s As String
If Check1.Value = True Then

  s = "合同编号= '" & in(0).Text & "'"
End If

End Sub
这个哪里错了啊，指明倒数第三句语法错误，要不就是说in（0）未定义，明明有个in控件数组，其中包含15个控件呀

[解决办法]