老问题有点思路了，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个控件呀

你还是看看仔细吧, 是否弄错了控件名, 从这里看不出来的

我还没看出来，我明明有这个东西的