Visual Basic

Imports System.Data.SQLite

Dim userName As String
Dim passWord As String
userName = usrBox.Text
passWord = passBox.Text

Dim sqlConnection As New SQLite.SQLiteConnection()

Dim sqlCommand As New SQLiteCommand

sqlConnection.ConnectionString = "Data Source=users.db3

sqlConnection.Open()
sqlCommand = sqlConnection.CreateCommand()
sqlCommand.CommandText = "SELECT * FROM users WHERE username = " & userName 

Private Function SetNewDataRow(ByVal dt As DataTable, ByVal index As Integer, Optional ByVal fno As Integer = 0) As DataTable

  Dim nra(13) As Object
  nra = New Object() {"", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

  nra(0) = "F" & (fno + 1).ToString & " Totals"

  For i As Integer = index To dt.Rows.Count - 1

    For j As Integer = 1 To dt.Columns.Count - 1
      If TypeOf dt.Rows(i).Item(j) Is DBNull Then

        nra(j) += 0
      Else
        nra(j) += CType(dt.Rows(i).Item(j), Double)
      End If

    Next

    '--------------------------------------
    ' Debug Info -Display array contents
    '--------------------------------------
    Dim sb As New StringBuilder()
    For n As Integer = 0 To 13
      sb.Append(nra(n))
      If n < 13 Then
        sb.Append(", ")
      End If
    Next

    Trace.WriteLine(sb.ToString)
    '--------------------------------------

    If i < dt.Rows.Count - 1 Then

      If (Left(dt.Rows(i).Item(0).ToString, 4) <> Left(dt.Rows(i + 1).Item(0).ToString, 4)) Then
        Dim nr As DataRow = dt.NewRow
        nr.ItemArray = nra
        dt.Rows.InsertAt(nr, i + 1)
        'Exit For                     ' This works

        SetNewDataRow(dt, i + 2, fno + 1)


      End If

    ElseIf i = dt.Rows.Count - 1 Then
      Dim nr As DataRow = dt.NewRow
      nr.ItemArray = nra

      dt.Rows.Add(nr)

      Exit For ' Problem here - Routine does not exit.
      ' Instead, jumps to the 'Next' statement

    End If

  Next

  Return dt

End Function