Borrar cajas de texto con la funcion Esc

[vicentecamesella]

Nataly prueba con el codigo nativo de vb ejemplos y me funciona

para cargar un combobox utilizas un recordset ejemplo rc1
En el siguiente codigo cargo un combop trayendo valores directo de una tabla me ahorro el echo de crearlo manuamente y doy flexibilidad al usuario, debajo de donde realizo el rc.open muestra el como blaquea un combobox sensillamente comboxxxx.clear y borra el contenido antes de cargar el nuevo espero te sirva

Sub cargarunidad()

comprobar_rc
cSql = "SELECT * FROM admundmed"
rc.Open cSql, cn, adOpenDynamic, adLockOptimistic
CmbUnidad.Clear
For i = 0 To rc.RecordCount - 1
CmbUnidad.AddItem rc!und_codigo
If CmbUnidad.Text = "" Then
CmbUnidad.Text = rc!und_codigo
End If
rc.MoveNext
Next

End Sub