Dim Bytes() As Byte = System.Text.Encoding.UTF8.GetBytes(txtPassword.Text)
    Dim HashofBytes() As Byte = New System.Security.Cryptography.SHA1Managed().ComputeHash(bytes)
    Dim StrHash As String = Convert.ToBase64String(HashofBytes)

    Using con As New SqlConnection("Data Source=(LocalDB)MSSQLLocalDB;AttachDbFilename=""G:ProgramXDatabase1.mdf"";Integrated Security=True")

        con.Open()

        Dim query As String = "SELECT COUNT(*) FROM Users WHERE Username=@Username AND @Password=@Password"
        Dim cmd As New SqlCommand(query, con)
        cmd.Parameters.Add(New SqlParameter("@Username", txtUsername.Text))
        cmd.Parameters.Add(New SqlParameter("@Password", StrHash))

        Try

            cmd.ExecuteScalar()

            If cmd.ExecuteScalar() = 1 Then

                frmOverview.ShowDialog()

                Me.Hide()

            Else

                MsgBox("You have entered an invalid username or password")

            End If

        Catch ex As SqlException
            MsgBox(ex.Message.ToString())
        End Try

    End Using

    txtPassword.Clear()