Public Class Login
    Dim LoginDataset As New MusicDataSet
    Dim LoginAdapter As New MusicDataSetTableAdapters.LOGINTableAdapter
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim UList = From LOGIN In LoginDataset Select LOGIN.UserName, LOGIN.Password Where UserName = TextBox1.Text And Password = TextBox2.Text
        If UList.Count >= 1 Then
            Home.Show()
            Me.Close()
        Else
            MessageBox.Show("Login info incorrect.")
        End If
    End Sub
End Class