jajajaja, hay que me parto..jajajajja que no me da más el cuerpo...aquaventus voy a hacer contigo un estatua.....he encontrado la solución en un aporte tuyo...graciasssssss lo pongo
Cita: Private Sub renovarBotones()
''Aqui verifico si se presiono para eliminar los
''botones creados anteriormente y no se esten
''amontonando con los de la otra consulta
' If accion = 1 Then
' Recorremos la colección de controles del formulario
For Each ctrl As Control In Me.Controls
' Si el tipo de control es un Button
If TypeOf ctrl Is Button Then
' Si se la primera letra del name del boton contiene X es porque es un producto
letra = ctrl.Name.Chars(0)
If letra = "x" Then
' Lo eliminamos de la colección
Me.Controls.Remove(ctrl)
'AQUI VUELVO A LLAMAR AL METODO ,SI ELIMINO UN BOTON QUE HAGA
'OTRA REVISION SINO QUE NO HAGA NADA PORQUE YA NO HAY
renovarBotones()
End If
End If
Next
'Limpio la tabla productos para que no se incremente
'undataset.Tables("productos").Clear()
'End If
End Sub