transaction access
access = CREATE transaction
access.DBMS = 'ODB'
access.DBParm = "ConnectString='Driver={Microsoft Excel Driver (*.xls)};Dbq=" +文件名+ ";Uid=;Pwd='"
CONNECT USING access ;
IF access.SQLCode <> 0 THEN
m_errmsg=access.SQLErrText
Return -1
END IF
atr_cnn=access