Private Sub Form_Load()
With DBCombo1
  .AutoComplete = True
  If dbOpen(App.Path & "\Daten\Data.mdb") Then
    sSql = "SELECT Anrede FROM Anreden ORDER BY Anrede"
    Set .Recordset = oDB.OpenRecordset(sSql)
    .DisplayColumn = 1
  End If
End With
End Sub

Private Sub DBCombo1_KeyPress(KeyAscii As Integer)
  With DBCombo1
    If Not .DroppedDown Then .DroppedDown = True
  End With
End Sub