ขอวิธีเชื่อมโปรแกรม VB ล็อกอินไอดีจากดาต้าเบสถ้าผ่านก็คือไป form2 ถ้าไม่ผ่านก็คือขึ่นเมสเสร็จว่าไม่ผ่าน ประมาณนี้ครับ

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles conn.Click
        Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
        Dim cm As New SqlCommand
        sqlADD = "INSERT INTO vacancies_Job(Company_name,Address,Tel,Job_title,Vacancy_rates)"
        sqlADD &= "VALUES ('" & txtcompany.Text & "','" & txtaddress.Text & "','" & txtphone.Text & "','" & txtyouwork.Text & "','" & txtwage.Text & "')"
        'ใช้ oledbcommand ในการเพิ่มข้อมูล
        If MessageBox.Show("คุณต้องการเพิ่มรายชื่อใหม่ใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            With cm
                .CommandType = CommandType.Text
                .CommandText = sqlADD
                .Connection = conn
                .ExecuteNonQuery()
            End With
            MessageBox.Show("เพิ่มรายชื่อพนักงานแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtcompany.Clear()
            txtaddress.Clear()
            txtphone.Clear()
            txtyouwork.Clear()
            txtwage.Clear()
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcompany.TextChanged

    End Sub
End Class