SABEN KOMO YENAR UN COMBO KON UNA BD
lo que yo hago es usar un procedimiento que pase "a mano" del recordset al combo
Yo use lo siguiente
Set db = OpenDatabase("C:farogestioDades llocbases de dades/db")
Set pv = db.OpenRecordset("pv", dbOpenTable)
y = 0
pv.MoveFirst
Do While y <> pv.RecordCount
y = y + 1
x = pv.Fields("Direccion")
If x <> "1" Then
sitios.AddItem (x)
End If
pv.MoveNext
Loop
Pv es el recordset, db la base de datos, y es un integer, x un string i sitios el combo.
Espero k sea lo k necesitavas
Set db = OpenDatabase("C:farogestioDades llocbases de dades/db")
Set pv = db.OpenRecordset("pv", dbOpenTable)
y = 0
pv.MoveFirst
Do While y <> pv.RecordCount
y = y + 1
x = pv.Fields("Direccion")
If x <> "1" Then
sitios.AddItem (x)
End If
pv.MoveNext
Loop
Pv es el recordset, db la base de datos, y es un integer, x un string i sitios el combo.
Espero k sea lo k necesitavas