Me dan una mano con un combo?

[carlunchos]

Buenas Sres, me dan una mano para cargar un combo en visual basic?. Tengo lo siguiente:

Private Sub Form_Load()
Const pathBase As String = "D:\Visual\base.mdb"

Set db = OpenDatabase(pathBase)
Set rst = db.OpenRecordset("Lat168")

cboBase.Text = rst!Lateral
Do While Not rst.EOF
cboBase.AddItem rst.Fields("Lateral")
rst.MoveNext
Loop

End Sub

Pero me tira un error que dice "No coinciden los tipos" y se para en "Set rst = db.OpenRecordset("Lat168")"

Estoy tratando de lograr la conexion sin DataControl y en ADO. Donde le pifio?. Seguramente es un error de concepto.

Saludos.

[carlunchos]

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.