Private Sub Form_Load()
Dim oRs As DAO.Recordset
Dim sSQL, ssSQL As String
  Set oDB = DBEngine.OpenDatabase("c:\programme\microsoft visual studio\meine" & _
    "projekte\db3.mdb")
  ' Datenquelle
  With Data1
    ' Datenbank öffnen
    .DatabaseName = "c:\programme\microsoft visual studio\meine" & _
      "projekte\db3.mdb"
    .RecordSource = "SELECT * FROM tblHonorarErmittlungen"
    .Refresh
  End With
 
  ' Eigenschaften der TextBox festlegen
  With IdZone
    .Style = rsComboBox
    .AutoComplete = True
 
    ' Datenfeld für autom. Aktualisierung zuweisen
    ' DataSource = Data1 !
    .DataField = "IdZone"
 
    ' Recordset-Objekt für Honorarzone erstellen und zuweisen
    sSQL = "SELECT IdZone, Zonen FROM tblZonen"
    Set .Recordset = Data1.Database.OpenRecordset(sSQL)
 
    ' Spalte "ID" an die Datenquelle binden
    ' Diese Spalte wird in der Kunden-Tabelle gespeichert
    .BoundColumn = 1
 
    ' Spalte "Bezeichnung" an TextBox binden
    ' Diese Spalte wird in der TextBox angezeigt!
    .DisplayColumn = 2
 
    ' Spalte ID ausblenden
    .Columns(1).Visible = False
  End With
  With IdSatz
    .Style = rsComboBox
    .AutoComplete = True
 
    ' Datenfeld für autom. Aktualisierung zuweisen
    ' DataSource = Data1 !
    .DataField = "IdSatz"
 
    ' Recordset-Objekt für Honorarsatz erstellen und zuweisen
    sSQL = "SELECT IdSatz, Satz FROM tblSatz"
    Set .Recordset = Data1.Database.OpenRecordset(sSQL)
 
    ' Spalte "ID" an die Datenquelle binden
    ' Diese Spalte wird in der Kunden-Tabelle gespeichert
    .BoundColumn = 1
 
    ' Spalte "Bezeichnung" an TextBox binden
    ' Diese Spalte wird in der TextBox angezeigt!
    .DisplayColumn = 2
 
    ' Spalte ID ausblenden
    .Columns(1).Visible = False
  End With
  .........