flag是啥意思，有何用途？急！！

Question

Dim WORK_Connection As ADODB.Connection
    Set WORK_Connection = New ADODB.Connection
    WORK_Connection.Open "Provider=SQLOLEDB.1;Password=ets2001;Persist Security Info=True;User ID=sa;Initial Catalog=ETS;Data Source=" + Server_Name
    Dim stock_Record As ADODB.Recordset
    Set stock_Record = New ADODB.Recordset
    stock_Record.Open "supplier_stock", WORK_Connection, 1, , adCmdTable‘（数据库连接没问题）
    stock_Record.Requery
M_QREF=label1.caption
chk_altpn=labe2.caption
现在我想判断当chk_altpn的值与表supplier_stock里字段P_n所有的的值不一样时，往表supplier_stock插入
新的值p_n=chk_altpn,qref=M_QREF!我的代码如下：
If Not stock_Record.EOF Then
              If Not chk_altpn = Trim(stock_Record!P_N) Then
  WORK_Connection.Execute "INSERT INTO supplier_stock (qref,p_n) VALUES ('" + M_QREF + "','" + chk_altpn + "')"
  stock_Record.MoveNext
              End If
          End If
我的问题是：执行时，chk_altpn的值与表supplier_stock里字段P_n所有的的值不管是否相同，都插入！
帮帮忙，解决一下！！！