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)
 
 
 ....
....

