Dim    strsql  AS String    
.............
Pub_C_KAMEI  = ....
DB_HAKI_MODE  = ....
............
strsql = "{ call dm_M03007U('" & Pub_C_KAMEI & "', '" & DB_HAKI_MODE & "' , '" & txtboxCode.Text & "')}"
Me.DBCommon.ADONETExecuteSQL(Ssql)




CREATE Procedure dm_M03007U(
  @Code     Varchar(6),
  @MODE    int,
  @DAYS     int
)As
Begin
    Update CD加盟店 Set  HAKI_MODE = @MODE, HAKI_DAYS = @DAYS
        from CD加盟店
        Where Code = @Code
End
GO