Cloning a table from .mdb to another using SELECT * INTO in VB6

[Costas]

Option Explicit

Private Sub Command_Click()
  Dim conn As ADODB.Connection
  Dim sourceDb As String
  Dim destDb As String
  Dim tableName As String
  Dim sqlCreate As String
  Dim sourceTableName, destTableName As String

  sourceDb = "C:\Users\Desktop\prj\Northwind.MDB"
  destDb = "C:\Users\Desktop\prj\2.mdb"
  sourceTableName = "Orders"
  destTableName = "OrdersClone"

  Set conn = New ADODB.Connection
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destDb & ";"
  conn.Open

  sqlCreate = "SELECT * INTO " & destTableName & " FROM [" & sourceTableName & "] IN '" & sourceDb & "';"
  conn.Execute sqlCreate

  conn.Close
  Set conn = Nothing
  MsgBox "Table cloned using SELECT INTO!"
End Sub