HELP！！！

Question

dim cn as new adodb.connection
dim ConnectionString as string
dim level as long
connectionString="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=SIMONZHANG"cn.open 
level = cn.Begintrans
  cn.execute "delete table1 where field1='dsf'"
  'level = cn.Bgeintrans    '在这里出错
   cn.execute "delete table2 where field2='dsf'"
 ' cn.committrans
cn.committrans