i have an access database where i am trying to export a table from my open database to a database on another drive.

Public Function CopyTablesToShare()

Dim Server As String
Dim db As Database
Dim rst As Recordset
Dim arrSplit() As String
Dim strSplit As String
Dim i As Integer

Set db = CurrentDb()
Set rst = db.OpenRecordset("CopyTablesTo")   'table that has the destination database paths


Do Until rst.EOF
    Server = rst!Value
    arrSplit = Split(Server, "\")
    strSplit = rst!Value
    On Error Resume Next
   DoCmd.TransferDatabase transfertype:=acExport, _
   databasetype:="Microsoft Access", _
   databasename:=Server, _
   objecttype:=acTable, Source:="z" & arrSplit(2) & "StructureFileBackup", _
   destination:=Format(Now(), "mm") & "_" & Format(Now(), "yy") & "StructureFile", structureonly:=False
End Function
i can step through the code fine but the tables do not show up in the destination database... the weird thing is, is that it seemed to work last week... do you see anything i may be missing