combobox and bd

Salu2!
Dim rs as AdoDb.Recordset
Dim Sql as String


sql = "SELECT TipoId,Tipo FROM Tipos"
Set rs = new Recordset
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = ReadOnly
.Open sql
end with
While Not rs.Eof
cbo.AddItem rs!Tipo
cbo.ItemData(cbo.NewIndex) = rs!TipoID
rs.moveNex
Wend

Suerte!!!

Att.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
José Trinidad García M. <El Tiko>
(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~