คำสั่งตรวจสอบครับ คือจะทำการกู้เงินแล้วให้มันตรวจสอบว่าสมาชิกคนนี้มียอดเงินกู้อยู่แล้วเท่ากับเกณฑ์ที่กำหนดหรือไม่ถ้าเท่า...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim cmdCheck As New SqlCommand("SELECT COUNT(mem_name)FROM borrow WHERE (bor_money ='" & bor_money.Text & "')", connect)
        connect.Close()
        connect.Open()
        Dim chk As Integer = cmdCheck.ExecuteScalar
        If chk = 1 Then
            MessageBox.Show("ไม่สามารถกู้ยืมได้เนื่องจากยอดกู้ยืมเท่ากับเกณฑ์กู้ยืมแล้ว", "คำเตือน!!!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Me.DataGridView1.Refresh()
            cleardata()
        Else
            Dim cmdaddperson As SqlCommand = New SqlCommand("INSERT INTO borrow (bor_id,mem_name,bor_date1,bor_date2,bor_money,bor_month) VALUES ('" & bor_id.Text & "','" & mem_name.Text & "','" & DateTimePicker1.Value & "','" & DateTimePicker2.Value & "','" & bor_money.Text & "','" & bor_month.Text & "')", connect)
            cmdaddperson.ExecuteNonQuery()
            displaydata()
            MessageBox.Show("ระบบทำการเพิ่มข้อมูลเรียบร้อยแล้วค่ะ", "เพิ่มข้อมูลเรียบร้อย!!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.DataGridView1.Refresh()
            cleardata()
            Personenable()
            Personnotenable()
        End If
    End Sub