Dim db As dao.Database
Dim tbd As dao.TableDef
Dim strDestination As String
Dim strSQL As String
strDestination = CurrentProject.Path & "\" & strD
Set db = DBEngine.OpenDatabase(strDestination)
db.Execute "Drop Table [" & strT & "]"