عدم اجرای sp توسط vb

[tempali]

سلام
من یک sp در sql200 نوشتم :

CREATE procedure sp_Export (@cusid varchar(5))
as
begin
Declare @X varchar(5000)
Declare @y varchar(5000)
set @x= 'exec sp_dropserver @server=''AccessDB''
EXEC sp_addlinkedserver
@server =''AccessDB'',
@provider =''Microsoft.Jet.OLEDB.4.0'',
@srvproduct =''OLE DB Provider for Jet'',
@datasrc =''c:\clone.mdb'''
set @y='
DELETE OPENQUERY(AccessDB, ''SELECT TOP 100 PERCENT * FROM _in_'')
DELETE OPENQUERY(AccessDB, ''SELECT TOP 100 PERCENT * FROM _out_'')
DELETE OPENQUERY(AccessDB, ''SELECT * FROM [_part info_]'')
DELETE OPENQUERY(AccessDB, ''SELECT * FROM _MainUnits_'')
DELETE OPENQUERY(AccessDB, ''SELECT * FROM _Suppliers_'')
INSERT OPENQUERY(AccessDB, ''SELECT * FROM _Suppliers_'')
SELECT * FROM _Suppliers_
INSERT OPENQUERY(AccessDB, ''SELECT * FROM _OUT_'')
SELECT * FROM _OUT_ WHERE [CUSTOMER ID]='+@cusid+
' INSERT OPENQUERY(AccessDB, ''SELECT * FROM _IN_'')
SELECT * FROM _IN_ WHERE [CUSTOMER ID]='+@cusid+
' INSERT OPENQUERY(AccessDB, ''SELECT * FROM [_part info_]'')
SELECT * FROM [_part info_]
INSERT OPENQUERY(AccessDB, ''SELECT * FROM _MainUnits_'')
SELECT * FROM _MainUnits_'

exec (@x)
exec (@y)
end
GO

که اطالاعات یک جول رو به یک فایل mdb منتقل می کنه.
داخل اس کیو ال خوب کار می کنه ولی زمانی که از وی بی اجراش می کنم بدون هیچ اروری اجرا نمی شه؟ نمی دونم چرا؟

Dim strFileName
Dim cmdExport As New ADODB.Command

Set cmdExport = New ADODB.Command
cmdExport.ActiveConnection = Cnn
cmdExport.CommandType = adCmdStoredProc
cmdExport.CommandText = "sp_Export"
cmdExport.CommandTimeout = 20
cmdExport.Parameters.Append cmdExport.CreateParameter("cusid", adVarChar, adParamInput, 5, "1")
cmdExport.Execute
DoEvents
cmdExport.ActiveConnection = Nothing
End Sub