ขอวิธีการทำ login ใน vb 2008 ฐานข้อมูล sql server แบบ windows application

Public Class Login

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

        If UsernameTextBox.Text = "" Or PasswordTextBox.Text = "" Then
            MessageBox.Show("กรุณากรอก Username และ Password ให้ครบถ้วน", "ข้อแนะนำในการเข้าใช้ระบบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Call cleartext()
            Exit Sub
        Else
            If UsernameTextBox.Text = "ann" Or PasswordTextBox.Text = "1234" Then
            ElseIf UsernameTextBox.Text = "st" Or PasswordTextBox.Text = "1111" Then
                MessageBox.Show("ยินดีต้อนรับเข้าสู่ระบบ", "ยินดีต้อนรับ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Mainmenu.Show()

            Else
                MessageBox.Show("คุณใส่ Username หรือ Password ผิดกรุณาตรวจสอบและกรอกใหม่อีกครั้ง", "แจ้งความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Call cleartext()
                Exit Sub
            End If
            End ElseIf
        End If

    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

        If MessageBox.Show("คุณต้องการที่จะยกเลิกการเข้าสู่ระบบใช่หรือไม่", "ยกเลิกการเข้าสู่ระบบ", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.OK Then
            Me.Close()
        Else
            cleartext()
        End If

    End Sub

    Private Sub cleartext()

        UsernameTextBox.Text = ""
        PasswordTextBox.Text = ""
        UsernameTextBox.Focus()

    End Sub

    Private Sub UsernameTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles UsernameTextBox.KeyPress

        If e.KeyChar = Chr(13) Then
            PasswordTextBox.Focus()
        End If

    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class