Public Sub MAAuslesen(frm As Form, sql As String)
  On Error Resume Next 
  Dim cmd1 As New Command 
  Dim rs As New Recordset 
  Dim merker As Variant 
 
  cmd1.CommandText = sql 
  Set cmd1.ActiveConnection = ModAlle.VerbindungPersonal 
  Set rs = cmd1.Execute(, , adCmdText) 
  rs.MoveFirst 
  Do Until rs.EOF
    With frm.cmbMitArb
      .AddItem rs("Name")
      .ItemData(.ListCount - 1) = rs("PersonalID")
    End With
    rs.MoveNext 
  Loop 
  rs.Close 
  Set rs = Nothing 
End Sub

Private Sub Combo1_Click()
  txtID.Text = Combo1.ItemData(Combo1.ListIndex)
End Sub