sentencia para combo

[vicentecamesella]

Justamente hoy hice algo similar espero te sirva en mi caso es lo siguiente tengo una tabla de tipos de IVA y de hay en otro form lleno un combo mas yo no se el minimo y maximo utilizo ado con sentencias sql mas recordset para el nivel de consultas espero te sirva el codigo

Sub cargariva()

comprobar_r
cSql = "SELECT * FROM admtipiva"
r.Open cSql, cn, adOpenDynamic, adLockOptimistic

For i = 0 To r.Fields.Count - 1
Combo3.AddItem r!tip_codigo
If Combo3.Text = "" Then
Combo3.Text = r!tip_codigo
End If
r.MoveNext
Next

End Sub