Login Admin/user role

Hej Eksperter!
Jeg er ved at lave et login med Vb.net og Sql database.
Dog løber jeg panden mod muren, da jeg i tilfælde af korrekt login kun får eksekveret koden efter finally og adminhome.vb ikke åbner! :-(

Jeg ligger min kode herunder og håber på at en venlig sjæl har lyst til at skimme den og komme med et godt råd.
På forhånd tak!

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = “” Or TextBox2.Text = “” Then
            MessageBox.Show(“Please Fill in Username and password!”)
        Else
            Dim con As SqlConnection = New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\KbData\KbData.mdf;Integrated Security=True;Connect Timeout=30")
            Dim cmd As SqlCommand
            Dim Reader As SqlDataReader

            Try
                con.Open()

                Dim query As String
                query = "select UserStatus from Users where Username='" + TextBox1.Text + "' and Password='" + TextBox2.Text + "'"
                cmd = New SqlCommand(query, con)
                Reader = cmd.ExecuteReader

                Dim count As Integer
                count = 0
                While Reader.Read
                    count = count + 1
                End While

                If count = 1 Then
                    Dim userstatus = Reader.GetString("UserStatus")
                    If userstatus = "1" Then
                        MsgBox("Velkommen!")


                        adminhome.Show()


                        Me.Hide()
                        con.Close()
                        con.Dispose()
                    Else

                        MsgBox("Velkommen!")
                        userhome.Show()
                        Me.Hide()

                    End If
                Else
                    MsgBox("Brugeren eksistere ikke!")
                    TextBox1.Text = ""
                    TextBox2.Text = ""

                End If
            Finally
                MsgBox("Oops got problems!")
            End Try
        End If
    End Sub
End Class