ผมจะสร้าง ฟอม login ครับ DB เป็น mysql มีวีดีโอครับ

Imports MySql.Data.MySqlClient
Imports System.Data
Public Class frmLogin

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL As String

        strConnString = "Server=122.155.10.197;User Id=pongtanakorn; Password=123456789; Database=pongtanakorn_vb2008; Pooling=false"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim intNumRows As Integer
        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND Password = '" & Me.txtPassword.Text & "' "
        objCmd = New MySqlCommand(strSQL, objConn)
        intNumRows = objCmd.ExecuteScalar()

        If intNumRows > 0 Then
            Dim frm As New frmMain
            frm._strUser = Me.txtUsername.Text
            frm.LoadInfor()
            frm.Show()

            Me.Hide()
        Else
            MessageBox.Show("Username or Password Incorrect")
        End If

        objConn.Close()
        objConn = Nothing

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        If MessageBox.Show("Exit application?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub


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

    End Sub
End Class