I have the same problem as Shrikant. I need to rename my tables. I read through the help section in the SQL online book...

this is the rest of my code:

****************************

'ADODB Connection

Dim AdCn

'SQL Query string

Dim SQL

'ADODB Recordset

Dim adrec2

Set AdCn = CreateObject("ADODB.Connection")

Set AdRec2 = CreateObject("ADODB.Recordset")

'variable for holding...