' connessione
        Dim objConn As New SqlConnection("data source=.;initial catalog=Utili;Integrated Security=SSPI;")

        ' comando
        Dim objCmd As New SqlCommand("SELECT IDUtente, Nome FROM Utenti", objConn)

        ' l'adapter ti serve per portare i dati verso il datatable DISCONNESSO
        Dim objDA As New SqlDataAdapter(objCmd)

        ' oggetto sorgente della listbox
        Dim DT As New DataTable("Lista")

        ' rimepio il datatable
        objDA.Fill(DT)

        ' definisco i campi per il valore ed il testo
        LB.DataTextField = "Nome"
        LB.DataValueField = "IDUtente"

        ' collego ai dati la sorgente
        LB.DataSource = DT
        LB.DataBind()

        ' da qui in poi il datatable è riutilizzabile...