espero puedan ayudarme a resolverlo.
Gracias
Código:
Dim consulta2 As FbCommand = conexion.CreateCommand()
consulta2.CommandText = "SELECT * FROM INVE01 WHERE CVE_ART = @articulo"
consulta2.Parameters.AddWithValue("@articulo", fila.Cells(1).Value.ToString())
consulta2res = New FbDataAdapter(consulta2)
consulta2ds = New DataTable
consulta2res.Fill(consulta2ds)
cprom = consulta2ds.Rows(0).Item(18)
usal = consulta2ds.Rows(0).Item(4)
exis = consulta2ds.Rows(0).Item(17)
....

