con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=testdb.mdb"
        con.Open()
 
        Dim cmd As New OleDbCommand("SELECT gID, gName FROM tblGames", con)
 
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
 
        While dr.Read()
            ListBox1.Items.Add(dr.Item("gName"))
        End While

Gru?

RollingStones