here is my code:

Private Sub Form_Load()
Dim ws As Workspace
Dim db As Database
Dim strSQL As String

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\OldDB.mdb")
strSQL = "SELECT * INTO [NewTable] IN d:\vb5\NewDB.mdb " _
& "FROM [OldTable]"

db.Execute strSQL

ws.Close
db.Close
Set ws = Nothing
Set db = Nothing

End Sub

i am trying to copy the table data and structure from OldDB.mdb into a new table NewTable.

the error #3067 occurs at the SQL code.

"query input must contain at least one table or query"

what is happening here...?

any help greatly appreciated.