ขอไฟล์ VB ระบบ Login/Register บน Windows Form ครับผม

Imports System.Data.SqlClient

Public Class LoginForm1

    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As SqlConnection
        conn = New SqlConnection("Data Source=BORDIN;Initial Catalog=MyCafe;Persist Security Info=True;User ID=sa;Password=1234")
        Try
            conn.Open()
        Catch ex As Exception
            MessageBox.Show("Connecting to Database Failed - Please Contact Systems Administrator")
        End Try
    End Sub


    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        Dim cmd As SqlCommand
        Dim conn As SqlConnection

        Dim sql = "Select username_user,pass_user From userRegister where username_user = '" & txtUsername.Text & "' and pass_user='" & txtPassword.Text & "'"

        conn = New SqlConnection("Data Source=BORDIN;Initial Catalog=MyCafe;Persist Security Info=True;User ID=sa;Password=1234")
        conn.Open()

        cmd = New SqlCommand(sql, conn)
        Dim dr As SqlDataReader = cmd.ExecuteReader

        Try
            If dr.Read = False Then
                'MessageBox.Show("Authentication Failed...")

                ' Check if username or password is empty
                If txtPassword.Text = "" Or txtUsername.Text = "" Then
                    MessageBox.Show("ไม่มีข้อมูลในช่อง Username หรือ Password ", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    'Clear all fields
                    txtUsername.Text = ""
                    txtPassword.Text = ""
                    'Focus on Username field
                    txtUsername.Focus()
                Else
                    ' Check if username or password not empty But username or pass Invalid
                    MessageBox.Show("Username หรือ Password ไม่ถูกต้อง", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    'Clear all fields
                    txtUsername.Text = ""
                    txtPassword.Text = ""
                    'Focus on Username field
                    txtUsername.Focus()
                End If

            Else
                MessageBox.Show("Login Successful...")
                Dim form As New MainMenu
                form.Show()

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        If conn.State <> ConnectionState.Closed Then
            conn.Close()
        End If
    End Sub