Listo, ya he solucionado esta parte y de la siguiente forma:
Private Sub Form_Load()
Const pathBase As String = "D:\Visual\base.mdb"
Set conexion = New ADODB.Connection
Set rst = New ADODB.Recordset
With conexion
.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;" & _
"Data Source=" & (pathBase) & ";"
.Open
End With
rst.Open "select * from Lat168", conexion, adOpenDynamic, adLockOptimistic
Do While Not rst.EOF
cboBase.AddItem rst.Fields("Central")
rst.MoveNext
Loop
End Sub
Era un error de concepto, estaba mezclando cosas de DAO con ADO.
Gracias igual.
