Dim dbs As Database
  Dim rst As Recordset
 
  strEingabe = InputBox("Bitte neuen Beruf eingeben", "Beruf erfassen")
  If strEingabe <> "" Then
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("SELECT * FROM tblBeruf")
    rst.AddNew
      rst("Bezeichnung") = strEingabe
      lngNummer = rst("LFD")
    rst.Update
 
    With sevErlernter_Beruf
      .Style = rsComboBox
      .AutoComplete = True
      strSQL = "SELECT * FROM tblBeruf ORDER BY [Bezeichnung]"
      Set .Recordset = CurrentDb.OpenRecordset(strSQL)
      .BoundColumn = 1
      .DisplayColumn = 2
      .Columns(1).Visible = False
    End With
 
    Me.sevErlernter_Beruf.Text = strEingabe
    Me.Erlernter_Beruf = lngNummer
  End If