Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Form_Load()
Dim c As Integer
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & App.Path & "\data.mdb" & " ;Jet OLEDB:Database password= coucongzi" ';Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from 全码 ", cn, adOpenDynamic, adLockPessimistic
For c = 1 To 10
rs.Fields("c号").Value = Label1(c).Caption
Next

End Sub


请哪位大侠解答一下
报错“实时错误‘3265’ 在对应所需名称或序数的集合中未找到项目”

补充一下

不好意思  在追问一下，在下面的代码中：
如果label1是数组控件，可不可以把s = "Label" & i   改成s = "Label1" & （i）
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Long
Dim s As String
Dim k As Object
If KeyCode = 13 Then                '如果按下了回车键
    i = Val(Text1.Text)             '转数字  ,
'没写范围判断，因为通过循环后，不在范围内的数据无法找到控件也就是无结果
    s = "Label" & i                 '注意大小写
    For Each k In Form1.Controls    '查找所有的控件
        If k.Name = s Then          '找到了指定名字的
            k.Caption = i           '给值
            Exit For                '退出循环
        End If
    Next
End If   
End Sub