菜问题,在线,急!!!!!!!!!!!!!!!!!!


Private Sub Command2_Click()
Dim rs  As Recordset
Dim db As Database
Set rs = dbn.OpenRecordset("select * from day_data")
Set db = OpenDatabase(App.Path & "\data\" & Left(Format(rs!day_data, "yy-mm-dd"), 5) & ".mdb")
db.Execute "SELECT * INTO [Text;DATABASE=D:\test].[authors.TXT] FROM [05]"
End Sub导出cvs文件,运行出错,信息如下:
run-time error '3078':
Microsoft Jet 数据库引擎找不到输入表或查询'05'。确定它是否存在,以及它的名称的拼写是否正确。表"05"存在于Left(Format(rs!day_data, "yy-mm-dd"), 5)之中
为何会这样,我晕!!!????????????????????????????????????????