求助，执行总是死掉

Question

Public Function SetUpdateCpy( _
 ByVal Mode As Integer, ByVal OldStatus As String, _
 ByVal NewStatus As String, ByVal UpdWho As String) As Variant  Dim SQL$
  Dim oraDS As Object  'OraDynaSet
  Dim Vdate As String
  
   SQL$ = "UPDATE PGCOPY" & vbCrLf & _
          "set STATUS='" & NewStatus & "'" & vbCrLf
 
 Vdate = CStr(Now())
  If Mode = 0 Then
    SQL$ = SQL$ & "where STATUS = '" & OldStatus & "' and UPD_WHO='" & UpdWho & "'" & vbCrLf
  ElseIf Mode = 1 Then
    SQL$ = SQL$ & ",FSCAPP_WHO='" & g_UserID & "' , FSCAPP_WHEN='" & Vdate & "'" & vbCrLf & _
    "where STATUS = '" & OldStatus & "' and UPD_WHO='" & UpdWho & "'" & vbCrLf
  end if
 Result = g_oraDB.ExecuteSQL(SQL$)
表中所有字段全部为string
不知道错在什么地方？
如题，谢谢！

Answer 1

跟踪下 最后 执行的 SQL$ 是什么内容,然后贴到sqlplus执行下看.会有提示的.

Answer 2

一执行就程序就不动了，在PL/sql中把变量换成常量能执行
SQL$ = SQL$ & ",FSCAPP_WHO='" & g_UserID & "' （这个写法有没有问题）

Answer 3

问题已解决，由于PL/sql开着，所以不能执行。