Código:
Pero el tema es el siguiente, al parecer agrega el dato al DataGrid pero se borra automaticamente, yo me dijé y es por el DB_RS.Close, pero el tema es que si lo saco, cuando vuelvo a hacer la consulta no me deja porque está abierto.Public Sub Search_By_BarCode(ByVal BarCode As String) DB_RS.Open "SELECT * FROM productos WHERE Codigo=" & BarCode, DB_Conn, adOpenStatic, adLockOptimistic Set frmMain.GildVentas.DataSource = DB_RS DB_RS.Update DB_RS.Close End Sub
Saludos!