copy a table

[ozarka]

I need to copy a table "tblUsage" (which is remotely located on \\server45\techdbs\tech34.mdb) to current mdb using a command button. Is it possible? (no linking is allowed, I mean i am not allow to link the tables from above server).

Thanks

[ozarka]

This routine works great. It makes tbltest2 on the server. I want tbltest2 to be on the current db. tbltest is coming from server.

Sub adoAppend()

'// Append records from Remote Table to Current MDB table

Dim con As ADODB.Connection
Dim cmd As ADODB.Command

Set con = New ADODB.Connection
Set cmd = New ADODB.Command

cmd.CommandText = "SELECT * INTO [tblTEST2] FROM [tblTEST]"
con.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=\\svr774\techy\test.mdb;Uid=Admin;Pwd =;"
con.Open
cmd.ActiveConnection = con
cmd.Execute
MsgBox "Done"
con.Close
Set cmd = Nothing
Set con = Nothing
End Sub

[ozarka]

This code works..

Public Sub GetTable()
Dim strSQL As String
strSQL = "SELECT *" & _
" INTO [tblTEST]" & _
" FROM [tblTEST]" & _
" IN '\\svr774\techy\test.mdb'"
CurrentDb.Execute strSQL, dbFailOnError
End Sub

Thanks to Brent