Roberto Pineda

Cambie el los asteriscos por comillas simple En esta linea y disculpa por no resaltarlos pero estoy respondiendo desde mi movil Rs.Open "SELECT * FROM CLIENTES where [IDENTIFICACION] like ' " & txtIdentificacion & " ' ", miConexion, adOpenKeyset,...

Expertos no se porque no miran mis preguntas, pero esta es la segunda vez que me contesto yo mismo. Por favor corrijan si el siguiente código me puede dar error ya que no soy experto en esto de VBA en Access y Excel Me ha funcionado el código...

Para el que le pueda servir Private Sub UserForm_Initialize() Call Conexion 'Creacion de coneccion con base de Datos Set Rs = New ADODB.RecordsetRs.Open "SELECT * FROM Tecnologia ORDER BY [Articulo]", myConexion, adOpenStatic...

Adapta esto a tu código If ListBox2.ListIndex <> -1 Then '--- Tu codigo---- ListBox2.RemoveItem ListBox2.ListIndex Else MsgBox "No hay articulo seleccionado para eliminar" Exit Sub End If

Espero esto te sirva Sub Formato() 'Cambio de formato en columna A Range("A:A").NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" End Sub