Public Class frmLogin
Dim SQL As New SQLControl
   Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
        cn.Open()
        cmd = New SqlCommand("SELECT UserName, Password from UserAuthentication WHERE UserName='" & txtUserName.Text & "' and Password = '" & txtPassword.Text & "' ", cn)
cn.close
End sub