23/05/2005, 13:05
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 137
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| Dim RsDatos As ADODB.Recordset
Dim SQL As String
Set RsDatos = New ADODB.Recordset
SQL = "Select campo From tabla"
RsDatos.Open SQL, Conexion, adOpenStatic
Combo.Clear
If RsDatos.Recordcount > 0 Then
While Not RsDatos.EOF
Combo.Additem RsDatos("Campo")
RsDatos.MoveNext
Wend
End If |