Ver originaldr = conec.consulta(query) While dr.Read Me.dgv.Rows.Add() Me.dgv.Item(1, j).Value = formatcurrency(dr.GetValue(0).ToString) j += 1 End While