Dim MyConn As New New OleDbConnection(<<CONNECTION STRING>>)
MyConn.Open
Dim MyAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM TABLE", MyConn)
Dim MyDataset As New DataSet() Create dataset
MyAdapter.Fill(MyDataset, "TABLE") Fill dataset from adapter
Listbox1.DataSource = MyDataset.Tables("TABLE") Set the datasource of listbox
Listbox1.DisplayMember = "FIELDNAME" Set the field of the display column
Listbox1.ValueMember = "ID" Set the field of the ID field (Optional)
Cleanup code
MyDataset.Dispose
LendersAD.Dispose