Private Sub Combos_Fuellen()
 
  Set rsMain = New ADODB.Recordset
 
  With rsMain
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .Source = "SELECT tbl_spieler.* FROM tbl_spieler"
    .Open
  End With
 
  If rsMain.EOF Then Exit Sub
 
 
 Do While Not rsMain.EOF
 
    With Combo1(0)
      .AddItem rsMain.Fields("Vorname") & " " & rsMain.Fields("Nachname")
      .ItemData(.NewIndex) = rsMain.Fields("id")
    End With
 
 
    rsMain.MoveNext
  Loop
  rsMain.Close
  Set rsMain = Nothing
End Sub