Escribir y guardar en datagridview

[e_daniel316]

le agregue un do while Al principio y le quite el FOR y ahora no se cae al hacer el insert, pero sigue guardando solo la primera fila.
las variables en cada if son para almacenar el contenido de cada celda


Dim j As Integer = 0

Do While (j < DG104.Rows.Count - 1)

If DG104.Rows(j).Cells(1).Value Is DBNull.Value Then
NOM = ""
Else
NOM = DG104.Rows(j).Cells(1).Value
End If
If DG104.Rows(j).Cells(2).Value Is DBNull.Value Then
DOSIS1 = ""
Else
DOSIS1 = DG104.Rows(j).Cells(2).Value
End If
If DG104.Rows(j).Cells(3).Value Is DBNull.Value Then
VIA = ""
Else
VIA = DG104.Rows(j).Cells(3).Value
End If
If DG104.Rows(j).Cells(4).Value Is DBNull.Value Then
ULT_DOSIS = ""
Else
ULT_DOSIS = DG104.Rows(j).Cells(4).Value
End If
If DG104.Rows(j).Cells(5).Value Is DBNull.Value Then
DIAS_TRAT = ""
Else
DIAS_TRAT = DG104.Rows(j).Cells(5).Value
End If
If String.IsNullOrEmpty(DG104.Rows(j).Cells(0).Value. ToString)Then

'AQUI VA EL INSERT
End If


j = j + 1
Loop