Private Sub cmdAdd_Click()
Rs.AddNew
Clear
txtArtikelbez.SetFocus
 
Set Rs2.ActiveConnection = Cn 'aktive Verbindung zuweisen
Rs2.LockType = adLockOptimistic
Sql = "SELECT tbl_Gruppen.GruppenID, " & " tbl_Gruppen.Gruppenname from" & _
  "tbl_Gruppen"
Rs2.Open (Sql)
 
If Rs2.RecordCount > 0 Then
  While Not Rs2.EOF
    Combo1.AddItem Rs2("GruppenID") 
    Rs2.MoveNext
  Wend
   Combo1.Locked = False
 
End If
Rs2.Close
'TerminateConnection
End Sub