this wil get you starting
Dim myconn As New ADODB.Connection
Dim myrs As New Recordset
myconn.Open "DSN=YourDNSName"
myrs.Source = "select * from costumers"
Set myrs.ActiveConnection = myconn
myrs.Open
Do While Not myrs.EOF
list1.add myrs("Name")
myrs.MoveNext
Loop