OK, just found a bug. In the bDB module, do this:
Code:
Public Function CreateTableCopy(ByRef SourceTable As String, ByRef NewTable As String) As Long
Dim SQL As String
' Returns Error Code.
On Error GoTo errHandler
SQL = "SELECT * INTO " & NewTable & " FROM " & SourceTable ' Remove the WHERE 0=1 part that's here or it will not copy the contents of the template.
DB.Execute SQL, dbFailOnError
DB.TableDefs.Refresh
Exit Function
errHandler:
CreateTableCopy = Err
MsgBox Error & " (" & Err & ")."
End Function