'algo debe ayudarte esto
Dim NArtic As Int32
con.open
try
For NArtic = 0 To dgvArtPedidos.Rows.Count - 2
Dim commDetallePed As New SqlCommand("Insert into DetallePedido (IdPedido,IdArticulo,Precio,Cantidad,Descuento,Peso) values (@IdPedido,@IdArticulo,@Precio,@Cantidad,@Descuento,@Peso)", Con)
commDetallePed.Parameters.Add("@IdPedido", SqlDbType.Int).Value = nidPedid
commDetallePed.Parameters.Add("@IdArticulo", SqlDbType.Int).Value = dgvArtPedidos.Item(7, NArtic).Value
commDetallePed.Parameters.Add("@Precio", SqlDbType.Decimal).Value = dgvArtPedidos.Item(2, NArtic).Value
commDetallePed.Parameters.Add("@Cantidad", SqlDbType.Int).Value = dgvArtPedidos.Item(0, NArtic).Value
commDetallePed.Parameters.Add("@Peso", SqlDbType.Decimal).Value = dgvArtPedidos.Item(3, NArtic).Value
commDetallePed.Parameters.Add("@Descuento", SqlDbType.Decimal).Value = CDbl("0,00")
'commDetallePed.Transaction = Mytrans
commDetallePed.ExecuteNonQuery()
AdpDetallePedidos.InsertCommand = commDetallePed
commDetallePed.Parameters.Clear()
Next
catch ex as exception
messagebox.show ("No se pudo guardar el Detalle","Detalle de Pedidos", MessageBoxButtons.OK, MessageBoxIcon.Information)
finally
con.close
end try