exechapur

¿Por qué no probas así? With Rec3 For i = 1 To Me.DataGrid1.ApproxCount .Delete .MoveNext Next End With

Como estas, lo que podes hacer, es capturar un error, en caso de que se de este, informas que ese dato ya esta registrado ;)

No se para que sirve el autofilter, pero ese error significa que no es una variable, osea que no podes modificar su valor ;)

Tienes que poner en la base de datos que ese campo es numérico y autoincrementable y así se va a ir aumentando solo ;) ¿Che qué tipo de metal tocas?

Vos quieres que al seleccionar un item en un combo, ¿Ese dato se guarde en 2 textbox?

¿Cuál es tu problema, vuelve a pegar el dato en la misma celda?

Che es muy complicado lo que quieres hacer, no se hace así nomas, ¿tienes idea de la complejidad de tu proyecto?

No estas agregando en la sentencia sql el filtro te quedaría así: Private Sub Command1_Click() 'boton q me genera la consulta Adodc1.CommandType = adCmdText Adodc1.RecordSource = "SELECT * FROM BIENES_DE_CONSUMO" If Combo1.Text <> "" Then cadena = "...

Podrías utilizar el procedimiento SendKeys, se le pasa por parámetro el numero de tecla o sino una palabra, te doy un ejemplo: Private Sub Command1_Click() SendKeys("Esto es una frase enviada desde vb6") End Sub

¿Cómo estas? Mira para visualizar los datos te recomiendo el mshflexgrid, es bastante útil para mostrar datos como en tu caso. Con respecto a la conexión, estas bien con el control data, ahora pon una caja de texto en la que se ingresara la...