codice:
Sub Form_Load()
    RiempiLista
End Sub

Sub RiempiLista()
    Dim mioRS as ADODB.Recordset
    Dim miaConn as ADODB.Connection
    Dim miaSQL as String

    miaConn = ....
    miaConn.Open
    Set mioRS = new ADODB.Recordset

    miaSQL="SELECT CampoTabella FROM Tabella"
    mioRS.Open miaSQL, miaConn, 1, 3

    if mioRS.RecordCount > 0 then
        mioRS.MoveFirst
        do until mioRS.EOF
             List1.AddItem mioRS("CampoTabella)
             mioRS.MoveNext
        loop
    end if
    
End Sub