如何玩改表名

ZZBZZBZZZB

Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm(500) As String, i As Integer, mysql As String, aq As String
    Set rsmx = New ADODB.Recordset
    mysql = "select  科目编码,总帐科目, 明细科目 into  aq   from 明细科目表  where  总帐科目 ='" & Combo12.Value & "'"
    rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    CurrentDb.Execute "ALTER TABLE 'aq' RENAME '" & Combo12.Value & "'"
End Sub
提示这个有语法错误:CurrentDb.Execute "ALTER TABLE 'aq' RENAME '" & Combo12.Value & "'"
应如何做??求高人指点!!!多谢!!!

ACMAIN_CHM

JET-SQL 不支持  rename

用DAO解决吧，或者直接 select into newTablename 然后 drop table oldtable