For i = 0 To Data_Unit.Rows.Count - 1
If sql.QuerySql("insert into InDetail2 values('" & Data_Unit.Rows(i).Cells(1).Value() & "','" & Data_Unit.Rows(i).Cells(2).Value & "')") = True Then
End If
Next
For i = 0 To Data_Unit.Rows.Count - 1
If sql.QuerySql("insert into InDetail2 values('" & Data_Unit.Rows(0).Cells(1).Value() & "','" & Data_Unit.Rows(i).Cells(2).Value & "')") = True Then
End If
Next