If Not rs.EOF Then

Do While Not rs.EOF

' Her bir kayıt için bir dizi oluştur

Dim personelBilgileri() As Variant

ReDim personelBilgileri(rs.Fields.Count - 1)



' Kayıttaki tüm alanları diziye aktar

For i = 0 To rs.Fields.Count - 1

personelBilgileri(i) = rs.Fields(i).Value

Next i



' Diziyi ListBox'a bir satır olarak ekle

lstPersonel.AddItem Join(personelBilgileri, vbTab) ' Alanları sekme ile ayır

' lstPersonel.AddItem Join(personelBilgileri, ";") ' Sekme yerine noktalı virgül kullan

rs.MoveNext

Loop

End If

yerine aşağıdaki kodu dener misiniz?

---

Not:
belirtmeyi unutmuşum aşağıdaki satırı da silmelisiniz