Private Sub Form_Load()
'establece la conexión con la BD para llenar el combo box
Dim rsEstaciones As New ADODB.Recordset
Dim strconex As String
'crea la conexión con la BD
conex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"C:\Interfaz\BD\biobio.mdb" ' <- Cambie esta ruta.
'crea la instuccion SQLpara consulta a BD
strconex = "select estacion.nombre from estacion"
'Abre la conexión.
conex.Open
rsEstaciones.Open strconex, conex, adOpenDynamic, adLockOptimistic, adCmdText
Debug.Print rsEstaciones.RecordCount
Do While Not rsEstaciones.EOF
List1.AddItem rsEstaciones!nombre
rsEstaciones.MoveNext
Loop
rsEstaciones.Close
'conex.Close
End sub