28/11/2004, 12:50
|
| | | Fecha de Ingreso: junio-2003 Ubicación: Asturias
Mensajes: 2.429
Antigüedad: 21 años, 8 meses Puntos: 7 | |
| Bueno, desde ya, Gracias a todos. Ya lo resolvi, puse lo siguiente:
Dim CN As New ADODB.Connection
Dim R As New ADODB.Recordset
CN.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Escritorio\Prueba\DbLibros. mdb;Persist Security Info=False")
Set R = CN.Execute("Select * from libros")
While Not R.EOF
CmbCombo.AddItem (R.Fields(1))
R.MoveNext
Wend
__________________
Charlie. |