Copy table from Oracle  to Access db

Public Sub testInsert()
 
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim lngAffected As Integer
Dim errADO As ADODB.Error
Dim strSQL As String
Dim strAccessDB As String
 
On Error GoTo HandleErrors
 
strAccessDB = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=G:\Common\Database\DC Database.mdb;"
 
strSQL = "INSERT INTO [" & strAccessDB & "].tvwLOCATIONS " & _
    "SELECT * " & _
    "FROM LOCATIONS " & _
    "WHERE CITY = 'Chicago'"
    
Debug.Print strSQL
 
Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command
 
cnn.Open "File Name=C:\DBLINK.UDL"
'Debug.Print cnn.ConnectionString
 
'   Use this connection when connecting to Oracle dB
cmd.ActiveConnection = cnn
 
 
'   Set the properties of the command
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
Debug.Print (cmd.ActiveConnection.ConnectionString)
 
'   Execute the command
cmd.Execute lngAffected
Debug.Print lngAffected & " Records modified"
 
Set cmd = Nothing
cnn.Close
Set cnn = Nothing
 
ExitHere:
    Exit Sub
    
HandleErrors:
    ' Check ADO Errors collection for contents
    With cnn
        If .Errors.Count > 0 Then
            For Each errADO In cnn.Errors
                Debug.Print "ADO:", errADO.Number, _
                 errADO.Description
            Next
        Else
            Debug.Print "VBA: ", Err.Number, _
                Err.Description
        End If
    End With
    Resume ExitHere
 
End Sub