.oCmd=CREATEOBJECT('ADODB.Command') .oCmd.ActiveConnection=.oConnect .oCmd.CommandType=8 cStr=FILETOSTR("TABLES_MSDE.SQL") .oCmd.CommandText=&cStr && Error .oCmd.Execute()