' creo la connessione al database
        Dim objConn As New OleDbConnection("Provider=SQLOLEDB.1;Initial Catalog=TuoDB;Data Source=TuoSERVER;User ID=TuoUser;Password=TuaPassword;")
        ' apro la connessione
        objConn.Open()
        ' creo un comando verso il database, usando la connessione appena aperta
        Dim objCmd As New OleDbCommand("SELECT Campo_Codice, Campo_Descrizione FROM TuaTabella", objConn)

        ' tramite il metodo ExecuteReader ricavo il datareader contenente i risultati
        Dim DR As OleDbDataReader = objCmd.ExecuteReader()

        ' imposto sulla listbox il campo valore ed il campo descrizione
        TuaListBox.DataValueField = "Campo_codice"
        TuaListBox.DataTextField = "Campo_Descrizione"

        ' imposto come datasource della listbox il datareader
        TuaListBox.DataSource = DR
        ' collego il controllo alla sorgente dati
        TuaListBox.DataBind()

        'chiudo e disalloco la connessione
        If objConn.State = ConnectionState.Open Then
            objConn.Close()
            objConn.Dispose()
        End If