Private Sub Form_Load() 
  Dim DB As Database 
  Dim Rs As Recordset 
  Dim sText As String
 
  Set DB = DBEngine.OpenDatabase("cobra.mdb") 
  Set Rs = DB.OpenRecordset("EINSATZCODEVERWALTUNG") 
 
  Combo1.Clear 
  If Rs.RecordCount > 0 Then 
    While Not Rs.EOF
      sText = Rs.Fields("Bezeichnung").Value
      sText = sText & Space$(500 - Len(sText)) & Rs.Fields("Ansatz").Value
      Combo1.AddItem sText
      Rs.MoveNext 
    Wend 
  End If 
  Rs.Close 
End Sub

Private Sub Combo1_Click()
  If Combo1.ListIndex > -1 Then
    txtAnsatz = Mid$(Combo1.Text, 501)
  End If
End Sub