After login page displaying users data

See more:

VB

SQL

programming

forms

CRUD

Hello I created a small application and some forms for someone to be able to create a user account and then go to a login screen and the user can login with the account that they just created.
Now my next step is I would like to bring up a new form which I created and I want to be able to use that specific users information on there account.
I want to display some of that users information in the textboxes I have created for the user that logged in
Basically just using the users information passing it to the next page is all I am trying to do
What would be the best way for me to do this?

‘ the user logs in using this button
Private Sub btnLoginNow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoginNow.Click
        Try
            con.Open()
            With cmd
                .Connection = con
                .CommandText = "SELECT * FROM dbo.People WHERE UserName = '" & txtUsername.Text & "' AND Password = '" & txtPassword.Text & "'"

                dr = cmd.ExecuteReader

                If (dr.Read() = True) Then
                    MsgBox("User is valid")

                    Me.Close()
                    LoginAfter.Show()
                Else
                    MsgBox("Invalid username or password!")
                End If
                'If result = 0 Then
                '    MsgBox("Login attemp failed")
                'Else
                '    MsgBox("Login successful")
                'End If
            End With
            dr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub
‘creating and loading data    
'creating CRUD create read update delete to database
    Public Sub CreateMethod(ByVal sql As String)
        Try
            'open connection
            con.Open()
            'hold the data
            With cmd
                .Connection = con
                .CommandText = sql
                'execute the data
                result = cmd.ExecuteNonQuery
                dr = cmd.ExecuteReader
                If result = 0 Then
                    MsgBox("No data save", MsgBoxStyle.Information)
                Else
                    MsgBox("Data saved to the database")
                End If
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub

    'holding the data to retrieve
    Public Sub Reload(ByVal sql As String)
        Try
            dt = New DataTable
            con.Open()
            With cmd
                .Connection = con
                .CommandText = sql
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
        da.Dispose()
    End Sub
Private Sub btnReload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReload.Click
        'reload data from database
        Try
            Reload("SELECT * FROM dbo.People")
            FillTable(DataGridView1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub