Private Sub DatenSchreiben() 
Dim n As Integer 
With cboProdukt 
 
 
Do While Not rsDaten.EOF 'Das Grid wird bis EOF gefüllt 
n = n + 1 
.AddItem = rsDaten!Name_des_Feldes '************ 
 
rsDaten.MoveNext 
Loop 
End With 
rsDaten.Close 
 
Set rsDaten = Nothing 'Die Instanzen müssen gelöscht werden!! 
Set con = Nothing 
 
End Sub