llenar un datalist

[bubilo]

Option Explicit
Dim base As Database
Dim tmuni As Recordset
Dim muni_detalle As Field

Private Sub Form_Load()
---Set base = OpenDatabase(App.Path & "\base.mdb")
---Set tmuni = base.OpenRecordset("SELECT DISTINCT descripcionmunicipios FROM municipios ORDER BY descripcionmunicipios")
---Set muni_detalle = tmuni.Fields("descripcionmunicipios")
---Do While tmuni.EOF = False
--- List1.AddItem muni_detalle
--- tmuni.MoveNext
---Loop
End Sub


no te olvides de agregar una referencia a ado 3.5 o 3.6 anda a proyectos-referencias alli lo vas a poder hacer..