อยากได้โค้ดเช็คยอดค้างชำระค่ะ ว่าใครค้างจ่ายบ้างค่ะรบกวนหน่อยนะค่ะทำโปรเจคจบค่ะ vb.netค่ะ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Conn As New OleDbConnection
        Dim Cmd As New OleDbCommand
        Dim Str As String
        MyModule.Connection(Con)
        Select Case status
            Case "add"
                If TextBox1.Text = "" Then
                    MessageBox.Show("กรุณาป้อนเลขที่การใช้น้ำ !!!", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    TextBox1.Focus()
                    TextBox1.SelectAll()
                    Exit Sub

                ElseIf TextBox2.Text = "" Then
                    MessageBox.Show("กรุณาป้อนเลขที่มาตรน้ำ !!!", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    TextBox2.Focus()
                    TextBox2.SelectAll()
                    Exit Sub
                ElseIf TextBox3.Text = "" Then
                    MessageBox.Show("กรุณาป้อนเลขที่อ่านครั้งก่อน !!!", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    TextBox3.Focus()
                    TextBox3.SelectAll()
                    Exit Sub
                ElseIf TextBox4.Text = "" Then
                    MessageBox.Show("กรุณาป้อนเลขที่อ่านครั้งหลัง !!!", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    TextBox4.Focus()
                    TextBox4.SelectAll()
                    Exit Sub
                Else
                    If CheckDubplicate1("W_No", "M", TextBox2.Text) = False Then
                        Str = "INSERT INTO WaterUse([Wu_No],[Wu_WM],[Wu_Date],[Wu_water],[Wu_Auto],[Wu_Name],[Wu_Add],[Wu_M],[Wu_N],[Wu_Before],[Wu_Datebefore],[Wu_After],[Wu_Dateafter],[Wu_Consumption],[Wu_Peo],[Wu_total],[Wu_Sta]) VALUES("
                        Str &= "'" & TextBox1.Text & "',"
                        Str &= "'" & TextBox2.Text & "',"
                        Str &= "'" & Dat1.Value.ToString & "',"
                        Str &= "'" & TextBox14.Text & "',"
                        Str &= "'" & TextBox8.Text & "',"
                        Str &= "'" & TextBox9.Text & "',"
                        Str &= "'" & TextBox10.Text & "',"
                        Str &= "'" & TextBox13.Text & "',"
                        Str &= "'" & TextBox7.Text & "',"
                        Str &= "'" & TextBox3.Text & "',"
                        Str &= "'" & Date2.Value.ToString & "',"
                        Str &= "'" & TextBox4.Text & "',"
                        Str &= "'" & Date3.Value.ToString & "',"
                        Str &= "'" & TextBox5.Text & "',"
                        Str &= "'" & TextBox12.Text & "',"
                        Str &= "'" & CheckBox1.Text & "',"
                        Str &= "'" & TextBox6.Text & "' "
                        Str &= ")"
                        Try
                            Cmd = New OleDbCommand(Str, Con)
                            Cmd.ExecuteNonQuery()
                            MsgBox("บันทึกข้อมูล เรียบร้อย", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "แจ้งเตือน")
                        Catch ex As Exception
                            MsgBox("ไม่สามารถบันทึกข้อมูลได้", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "แจ้งเตือน")
                        End Try
                    Else
                        MsgBox("ไม่พบเลขที่มาตรน้ำในระบบ" & vbCrLf & "กรุณาเพิ่มข้อมูลของเลขที่มาตรน้ำนี้ก่อน", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "แจ้งเตือน")
                    End If
                End If
            Case "Edit"
                Str = "UPDATE WaterUse SET Wu_WM= '" & TextBox2.Text & "',Wu_Date='" & Dat1.Value.ToString & "',Wu_Before= '" & TextBox3.Text & "',Wu_Datebefore='" & Date2.Value.ToString & "',Wu_After='" & TextBox4.Text & "',Wu_Dateafter='" & Date3.Value.ToString & "',Wu_Consumption='" & TextBox5.Text & "',Wu_total='" & TextBox6.Text & "',Wu_Peo= '" & TextBox12.Text & "',Wu_water= '" & TextBox14.Text & "',Wu_Auto= '" & TextBox8.Text & "',Wu_Name= '" & TextBox9.Text & "',Wu_Add= '" & TextBox10.Text & "',Wu_M= '" & TextBox13.Text & "',Wu_N= '" & TextBox7.Text & "' WHERE [Wu_No]= '" & TextBox1.Text & "'"
                Try
                    Cmd = New OleDbCommand(Str, Con)
                    Cmd.ExecuteNonQuery()
                    MsgBox("แก้ไขข้อมูล เรียบร้อย", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "แจ้งเตือน")
                Catch ex As Exception
                    MsgBox("ไม่สามาารถแก้ไขข้อมูลได้", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "แจ้งเตือน")
                End Try
        End Select


        Showdata()
        Clear()
        Disable()
        Autocomplete1()
        status = ""
        Button1.Text = "บันทึก"
    End Sub

Select a.*, b.StatusName From Wu_Sta As a Left Join Status As b (ON a.Wu_Sta = b.StatusID)
Where a.Wu_NO = 1500 -- เลขที่อะไรก็ว่ากันไปครับ

Insert Into WaterUse (Wu_NO, Wu_Sta) Values (2500, 1)  -- สถานะ ปกติ
Insert Into WaterUse (Wu_NO, Wu_Sta) Values (2500, 2)  -- สถานะ ค้างคืน