Dim rs As New adodb.Recordset
Dim ctls As Controls
Dim i As Long
rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set ctls = Me.Form.Controls
For i = 0 To 10
    ctls("A" & i).ControlSource = rs.Fields(i).Name
Next