dim Cn
SET CN = CREATEOBJECT("ADODB.CONNECTION")

cn.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=FACTUNET;Data Source=SRVDAT01;User ID=0;Persist Security Info=False;Integrated Security=SSPI; Connection Timeout=0;"
cn.ConnectionTimeout = 0
cn.open 

CN.EXECUTE "USE FACTUNET"


cn.execute "DELETE FROM ARTICULO"  
'cn.execute "DBCC CHECKIDENT (ARTICULO, RESEED,0)" 

'on error resume next 
'cn.execute "drop table articulo"
'on error goto 0
'cn.execute "select * into articulo from srv2008.florma.dbo.articulo"

CN.EXECUTE "DELETE FROM CLIENTE"