ช่วยดูให้หน่อยคับว่าผิดตรงไหนครับ ต้องแก้ไขตรงไหนครับ

Private Sub btn_addsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_addsend.Click
        If txt_out_sn.Text = "" Or cbb_status.Text = "" Or txt_out_notesend.Text = "" Then
            msg_errer("กรุณากรอกข้อมูลให้ครบ")
            Return
        End If

        connect_open()
        sql = "select * from product where product_amount='" & num_exit.Text & "'"
        DA = New SqlDataAdapter(sql, cn)
        DS = New DataSet
        DA.Fill(DS, "table")
        Dim dts As DataTable = DS.Tables("table")
        If dts.Rows.Count < 0 Then
            msg_errer("จำนวนสินค้าในสต๊อกเคลมเป็น 0 ไม่สามารถตัดส่งคืนได้ กรุณารับสินค้าเข้า")
            Return
        End If