最近編一個物資管理系統,用vb6.0+sqlserver2000,在編寫executesql函數時出錯,

public function executesql(byval sql as string, msgstring as string) as adodb.recordset
  dim cnn as adodb.connection
  dim rst as adodb.recordset
  dim stokens() as string
  on error goto executesql_error
  stokens = split(sql)
  set cnn = new adodb.connection
  cnn.open connectstring
    if instr("insert,delete,update", ucase$(stokens(0))) then
      cnn.execute sql
      msgstring = stokens(0) & "query sucessful"
    else
      set rst = new adodb.recordset
      rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic
      set executesql = rst
      msgstring = "查詢到" & rst.recordcount & "條記錄"
    end if
 executesql_exit
    set rst = nothing
    set cnn = nothing
    exit function
 executesql_error
    msgstring = "查詢錯誤" & err.description
    resume executesql_exit

  end function
 
public function connectstring() as string
connectstring = "filedsn=material.dsn;uid=sa;pwd=sa"
end function

預編譯執行時出現錯誤,提示子程序或函數未定義,而且光標指向 executesql_exit,我已經把microsoft activex objects 2.6 library 添加了,數據源也設好了