Kod bölümüne

Private Sub doldur()

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='db.mdb'")



        baglanti.Open()

        Dim komut As New OleDb.OleDbCommand("SELECT * FROM Tablo1", baglanti)



        Dim getir As OleDb.OleDbDataReader

        getir = komut.ExecuteReader()

        While getir.Read()

            ListBox1.Items.Add(getir("Nick"))

        End While

        ListBox1.Refresh()

        baglanti.Close()



    End Sub

şeklinde bir kod ekleyin ve Form1_Load'ına;

doldur()

ekleyin, deneyin. Sanırım bu kadar.

---

Düzenlenmiş hali de ektedir.