'TSQL:OPENROWSET 
    dim adoConnection as new adodn.connection 
    'set adoConnection=Server.CreateObject("ADODB.Connection") 
    adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=YourDataBaseName;Data Source=YourServerName" 
    '×¢ Òâ ×Ö ¶Î Àà ÐÍ µÄ Æ¥ Åä ¡¢ Ò» ÖÂ ¡¢ ¼æ ÈÝ 
    'adoConnection.Execute "SELECT * INTO YourTableName FROM OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')" 
    '¿É ÔÚ SQL Server Query Analyzer ÖÐ Ö´ ÐÐ SQL: 
    ' SELECT * INTO YourTableName FROM OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]') 
    adoConnection.Execute "INSERT INTO YourTableName SELECT * FROM OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')" 
