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.