Private Sub Form_Load() 'Beim starten wird folgendes Ausgeführt 
Dim db As Database 
Dim Rs As Recordset 
 
Set db = OpenDatabase("Test.mdb") 'Datenbank "Movies.mdb" wird geladen 
Set Rs = db.OpenRecordset("Movies") 'Die Tabelle "Adressen" wird eingelesen

Rs.Sort = "German"

Rs.MoveFirst 'Springt zum ersten Datensatz

With Rs 'Hier werden die Daten ausgelesen und in die jeweilige Textbox 
' geschrieben 
frmMain.labHead = Trim(.Fields(1)) & "," & Space(1) & Trim(.Fields(0)) _
  'Überschrift 
frmMain.txtGermanTitle = Trim(.Fields(1)) 'German Title 
frmMain.txtOriginalTitle = Trim(.Fields(2)) 'Original Title 
frmMain.txtGenre = Trim(.Fields(3)) 'Genre 
End With 
Rs.Close 'Schliesst die Tabelle 
db.Close 'Schliesst die Datenbank 
End Sub

Set Rs = Rs.OpenRecordset(dbOpenDynaset)

L