Cargar tabla de access en un ListBox en Visual Basic 2010

Hola todos después de mucho tiempo sin postear nada por aquí  por razones laborales, hoy nuevamente aparezco y espero seguir posteando mas códigos que se que sera de ayuda a mas de uno.
bueno entremos en materia, hoy les quiero enseñar como mostrar un campo de una tabla de una Bd de access en un control listbox, es muy fácil y necesario a la hora de desarrollar cualquier aplicación, explicare desde como conectarnos con la Base de datos hasta como mostrar los datos en el listbox.

bueno lo primero que tenemos que hacer es crear nuestra conexión para esto agregamos un modulo a nuestro proyecto y dentro de el colocamos el siguiente código:

Imports System.Data
Imports System.Data.OleDb
Module Conexion_bd
   
    Public Conexion As ADODB.Connection
    Public Cadena As String
    '//sub que realiza la conexion con la base de datos
    Public Sub Conectarse()
        Conexion = New ADODB.Connection
        '//especifico el provedor de datos y la ruta donde se encuentra la base de datos
        '//que en este caso se encuentra en el path de nuestro ejecutable
        Try
            Cadena = "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + My.Application.Info.DirectoryPath + "\miBD.mdb"
            Conexion.Open(Cadena)
        Catch ex As OleDb.OleDbException
            MessageBox.Show("No se ha podido conectar al servidor " + ex.Message)
        End Try
    End Sub
End Module

Después de esto deberás agregar la referencia  Microsoft ActiveX Data  Objetivo 2,6 para ello ve al menú
Proyecto >> Agregar referencia >> en la ventana que sale le damos en la Opción COM y seleccionamos nuestra referencia y hacemos click en el botón Aceptar

Luego agreguen a su formulario un boton y  un ListBox deberia quedar algo como esto:

ok lo que haremos ahora es hacer doble click sobre nuestro boton y luego agregar en siguiente codigo:

Imports System.Data 
Imports System.Data.OleDb 
Module Conexion_bd 
Public Conexion As ADODB.Connection Public Cadena As String 
'//sub que realiza la conexion con la base de datos 
Public Sub Conectarse() 
Conexion = New ADODB.Connection 
 '//especifico el provedor de datos y la ruta donde se encuentra la base de datos 
'//que en este caso se encuentra en el path de nuestro ejecutable 
 Try 
Cadena = "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + My.Application.Info.DirectoryPath + "\miBD.mdb" 
Conexion.Open(Cadena) 
Catch ex As OleDb.OleDbException MessageBox.Show("No se ha podido conectar al servidor " + ex.Message) 
End Try 
End Sub 
End Module

La idea es que al hacer click sobre el boton conectar, este cargue el campo "Campo1" de nuestra tabla, asi que solo queda ejecutar la aplicacion para verificar que el codigo este funcionando bien Suerte!! jojojo