Código:
If Not rsCliente.EOF Then
rsCliente.MoveFirst
Do Until rsCliente.EOF
Combo4.List(i) = rsCliente("razon")
i = i + 1
rsCliente.MoveNext
Loop
rsCliente.Close
Set rsCliente = Nothing
Else
MsgBox "No hay clientes para poder realizar la factura, ingresar al cliente!", , "TICOM SCRL"
Exit Sub
End If