Seleccionar Tablas y copiar

Hola
Con esta función selecciono una serie de tablas de mi base de datos y esas tablas seleccionadas las quisiera pasar a una tabla llamada Trabajador. No logro acertar con el código adecuado.
Espero que con estos datos quede claro lo que deseo.
Muchas gracias por las molestias y un saludo.
Private Function ListaTablas(Campo As Control, id As Long, fila As Long, col As Long, código As Integer)
Dim DescuentA As Integer, zx As Integer
Static dbs(127), Entradas
Dim ValRetorno
ValRetorno = Null
Select Case código
Case LB_INITIALIZE 'Inicializar.
Dim MIDB As Database, micontenedor As Container
Set MIDB = CurrentDb()
Entradas = MIDB.TableDefs.Count
DescuentA = 0
For zx = 0 To Entradas - 1
If (MIDB.TableDefs(zx).Attributes And DB_SYSTEMOBJECT) _
Or MIDB.TableDefs(zx).Name Like "MSys*" _
Or MIDB.TableDefs(zx).Name = "mensual" _
Or MIDB.TableDefs(zx).Name = "mes" _
Or MIDB.TableDefs(zx).Name = "patron" _
Or MIDB.TableDefs(zx).Name = "personal" _
Or MIDB.TableDefs(zx).Name = "Quebranto" _
Or MIDB.TableDefs(zx).Name = "trabajador" _
Or MIDB.TableDefs(zx).Name Like "*TMP*" _
Or MIDB.TableDefs(zx).Name = "tblNewReleases" Then
DescuentA = DescuentA + 1
Else
dbs(zx - DescuentA) = MIDB.TableDefs(zx).Name
End If
Next zx
Entradas = Entradas - DescuentA
Me.NumeroTablas.Caption = "Total " & Entradas & " tablas"
ValRetorno = Entradas
MIDB.Close
Set MIDB = Nothing
Case LB_OPEN 'Abrir.
ValRetorno = Timer 'ID único para control.
Case LB_GETROWCOUNT 'Número de filas.
ValRetorno = Entradas
Case LB_GETCOLUMNCOUNT 'Número de columnas.
ValRetorno = 1
Case LB_GETCOLUMNWIDTH 'Anchura de columna.
ValRetorno = -1 'Usar la anchura predeterminada.
Case LB_GETVALUE 'Obtener los datos.
ValRetorno = dbs(fila)
Case LB_END 'Terminar
For Entradas = 0 To 127
dbs(Entradas) = ""
Next
End Select
ListaTablas = ValRetorno
End Function