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

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

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

Dim DS as new Dataset
Dim tb as New Datatable 
tb = DS.Tables(0)

'หรือ คุณจะใช้ Dataset เลยก็ได้นะไหน ๆ ก็ประกาศมาแล้ว

if DS.Tables(0).rows.count  > 0 Then
msgBox("สามารถตัดสต็อกได้")
else
msgBox("ไม่สามารถตัดสต็อกได้")
End If