It's very simple.You can do this using DataReader object
I assume that you are using Access DataBase.
Dim objda As OleDbDataAdapter = New OleDbDataAdapter
Dim dr As OleDbDataReader
objda.SelectCommand = New OleDbCommand
objda.SelectCommand.Connection = Con
objda.SelectCommand.CommandText = "Select FieldName FROM TableName"
Try
dr = objda.SelectCommand.ExecuteReader
Catch ex As OleDb.OleDbException
MessageBox.Show(ex.ToString)
End Try
While dr.Read
ListBox1.Items.Add(dr.Item(0))
End While
dr.Close()
Add this code on Button_Click Event. :)