VB调用存储过程时报错

Question

VB调用存储过程时出错储存过程：
create proc dumpdata      
as   
declare @sql varchar(600)      
select @sql='dump database da1 to  "E:\Data_Bak\date'+right(convert(varchar(10),getdate(),112),4)+'" '      
exec (@sql)
执行这个没问题，但在ＶＢ调用时，提示
实时错误'-2147217900 (80040e14)';
[Native Warning code:404101]
[DataDirect ADO Sybase Provide] backup Server:
4.41.1.1: Createing new disk file e:\data_bak\data0926 

Answer 1

在ＶＢ中调用如下：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
con.Open "Provider=Sybase.ASEOLEDBProvider.2;Initial Catalog=ebook;Password=a1;User ID=user1;Data Source=ebookado;Persist Security Info=True"
Set cmd.ActiveConnection = concmd.CommandType = adCmdStoredProc
cmd.CommandText = "dumpdata"
cmd.Execute

Answer 2

Sybase没有用过，从VB代码看是没问题的，可能的原因是向服务器端写文件的权限问题