新手正在自学VB6.0，买的书有一些基础问题没有解释清楚，麻烦前辈稍微指点一下这是哪里的问题，跪谢。。


Private Sub ComFind_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
  
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\编程12.7.21\dingdanchaxun.mdb;"
  sql = "seclect * form 订单查询 where 订单号= '" & Text1.Text & "'"
      Set rs = New ADODB.Recordset
        rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic    ==========================就是这一行出问题。
        Set MSHFlexGridl.Recordset = rs
        MSHFlexGridl.Refresh
  rs.Close
  cn.Close
      
  Set rs = Nothing
  Set cn = Nothing
End Sub

sql = "seclect * from 订单查询 where 订单号= '" & Text1.Text & "'"
重复发帖了

[ 本帖最后由 Artless 于 2012-8-4 00:18 编辑 ]

谢谢斑竹大人，改了两个拼错的单词，不过还是不能运行


Private Sub ComFind_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
  
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\编程12.7.21\dingdanchaxun.mdb;"
    sql = "select * from 订单查询 where 订单号= ' " & Text1.Text & " ' "
    Set rs = New ADODB.Recordset
        rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
        Set MSHFlexGridl.Recordset = rs        **********************一点查询按钮就会出现实时错误424，要求对象
        MSHFlexGridl.Refresh
    rs.Close
    cn.Close
      
  Set rs = Nothing
  Set cn = Nothing
End Sub

这几行代码是完全按照书上照抄的

DataSource