TableCopy

Public Sub AddData(DataFrom As String, DataTo As String)
Dim dbFrom, dbTo As Database
Dim rsFrom, rsTo As Recordset
Set dbFrom = OpenDatabase(DataFrom)
Set dbTo = OpenDatabase(DataTo)

For n = 0 To dbFrom.TableDefs.Count - 1
'This search out on table in your database

If dbFrom.TableDefs(n).Attributes = 0 Then
Set rsFrom = dbFrom.OpenRecordset(dbFrom.TableDefs(n).Name)
Set rsTo = dbTo.OpenRecordset(dbTo.TableDefs(n).Name)
End If
'Loops through all fields in table and copies from

'dbFrom to dbTo.


Do Until rsFrom.EOF
rsTo.AddNew
For i = 1 To rsTo.Fields.Count - 1
If rsFrom.Fields(i) = "" Then Goto hell
rsTo.Fields(i) = rsFrom.Fields(i)
hell:
Next i
'This updates and moves to the next record in the

'from database

rsTo.Update
rsFrom.MoveNext
Loop
Next n

dbFrom.Close

dbTo.Close

End Sub
Inputs:Call the function like this.
AddData "C:\My Documents\Test\From.mdb", _
"C:\My Documents\Test\To.mdb"