Private db As Database
Private rs As Recordset
 
Private Sub Command1_Click()
   Dim n As Long
 
   For n = 0 To 2
      With rs
        .Edit
        .Fields(0).Value = Text1(n).Text
        .Update
        .MoveNext
      End With
   Next
 
End Sub
 
Private Sub Form_Load()
    Dim vRow As Variant
    Dim n As Long
 
    Set db = DBEngine.OpenDatabase("D:\MyExl.xls", False, False, "Excel 8.0")
    If IsObject(db) Then
        Set rs = db.OpenRecordset("MyBereich2")
        If Not rs.BOF Or rs.EOF Then
            vRow = rs.GetRows(3)
            For n = 0 To 2
               Text1(n).Text = vRow(0, n)
            Next
            rs.MoveLast
            rs.MoveFirst
        End If
    End If
End Sub