> Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")この部分の Excel 8.0 を Excel 9.0 や Excel 10.0 にしていませんか?