[VB.NET] Popolare ListBox prelevando dati da database Access

[nikeddy]

Io ho un problemaccio...

in vb6 facevo:

cosi per popolare una listbox:

  lst_dvd.Clear
         Set gRsdvd = New ADODB.Recordset
          gsSQL = "SELECT * FROM dvd "
           gRsdvd.Open gsSQL, gCnGestione
         Do While gRsdvd.EOF = False
          lst_tuttidvd.AddItem gRsdvd("dvd")
          lst_tuttidvd.ItemData(lst_dvd.NewIndex) = gRsdvd("ID")
          gRsdvd.MoveNext
        Loop
    gRsdvd.Close 

Cosi in un modulo:

Global gCnGestione As ADODB.Connection
Global gRspercorsitotali As ADODB.Recordset
Global gsSQL As String 

e cosi nella form load:

Set gCnGestione = New ADODB.Connection
'gCnDatabase.Open "FILE NAME= " & App.Path & " \Database.udl"
gCnGestione.Open "FILE NAME=" & App.Path & "\Database.udl" 

e all'apertura della form mi caricava le listbox...

con vbnet come faccio??