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’ 在对应所需名称或序数的集合中未找到项目”

补充一下

rs.Fields(c & "号").Value = Label1(c).Caption

c 是变量，你要放到 字段名里去，就必须使用连字符，而不能 直接把 c 写到 引号里去。

不好意思  在追问一下，在下面的代码中：
如果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

怎么说这段代码眼熟。  
-----------------------
按件数组，名字是一样的，也就是 Name 属性是一样的，区别在于 下标，也就是 Index 属性不同。


        If k.Name = s Then          '找到了指定名字的  ------ 这句就是可以出这个控件数组的所有控件来。不管下标是多少，都可以找得出来。
            k.Caption = i           '给值        ，如果你要针对不同的下标赋不同的值，那么再取 k.index ，然后再加以判断。
            Exit For                '退出循环    ，给控件数组赋值，这句需要取消。这句的作用是在给单个控件赋值时，找到了控件操作完成后不再查找了。
        End If

其实，对控件数组操作时，直接引用不更快？？
Label1(i).caption = "sdfga"    ，知道下标范围，直接用循环给值，不需要查找窗体上所有的控件。
前面那个代码是用于 一大堆控件，但没有组控件数组时用的。更消耗运算时间。