Dim UList = From userlist In OurDataset.tbl_Users Select userlist.username, userlist.password Where username = txt_User.Text And password = txt_PWord.Text
        If UList.Count >= 1 Then
            Home.Show()
            Me.Close()
        Else
            MessageBox.Show("Login info incorrect.")
        End If