Imports System

Public Module Module1

    Public Sub login()

        Dim LogInTableApt As New CSE_DEPTDataSetTableAdapters.LogInTableAdapter

        Dim selForm As New SelectionForm

​

        LogInTableApt.ClearBeforeFill = True

        LogInTableApt.FillByUserNamePassWord(CSE_DEPTDataSet.LogIn, txtUserName.Text, txtPassWord.Text)

        If CSE_DEPTDataSet.LogIn.Count = 0 Then

            MessageBox.Show("No matched username/password found!")

            txtUserName.Focus()

            Exit Sub

        End If

        selForm.Show()

        Me.Hide()

    End Sub

    public sub cancel()

        Me.Close()

    End sub

End Module