DataE.rsCommand8.open
With DataE.rsCommand8
If .BOF Or .EOF Then Exit Sub

For t = 1 To .RecordCount

Combo1.AddItem (.Fields("Kasalar"))

.MoveNext

Next
End With

bu kodla veritabanından verilerimi combo1 e getiriyorum fakat program içerisinde form bir kere kapanıp açıldıktan sonra ikinciye listelenmiyor combo1 boş oluyor
bunun sebebi ne olabilir çözümü bilen arkadaşlar lütfen acilllll