Private Sub Form_Load()
    LadeLabels
End Sub
 
Private Sub LadeLabels()
    Dim rs As New ADODB.Recordset
    Dim c As Long
 
    rs.Open "DeinTabellenName", "C:\...\TestDatenbank.mdb", adOpenForwardOnly, _
      adLockReadOnly, adCmdTable
    rs.MoveFirst
    For c = 1 to 24
        lblA(c).Caption = rs("Text").Value
        rs.MoveNext
    Next c
 
    rs.Close
    Set rs = Nothing
End Sub

rs.MoveNext

rs.Find "Nummer = 'A" & CStr(c) & "'"