codice:
Private Sub Command1_Click()
On Error Resume Next
Dim i as Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
'SENZA DSN DI SISTEMA
'cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documenti\VB\db.mdb"
'CON DSN DI SISTEMA
cn.ConnectionString = "Provider=MSDASQL; Data Source=DSN_ACCESS; Database=; User Id=; Password=; Security Info=True"
cn.Open
Set rs = cn.Execute("SELECT * FROM mia_tabella ORDER BY cognome,nome,id")
rs.MoveFirst
While Not rs.EOF
for i=0 to 9 '<-- supponendo che il record sia composto da 10 campi
Mia_ListBox.AddItem rs.Fields(i).value
next i
rs.MoveNext
Wend
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub