how we can recover deleted record in ms access database

• If the database has not been closed since the tables were deleted
• If the database has not been compacted after deletion
• If Access UI was used to delete data
• If No attachments were present

Sub RecoverDeletedTable()

  On Error GoTo ExitHere

    Dim db As DAO.Database

   Dim strTableName As String

   Dim strSQL As String 

  Dim intCount As Integer 

  Dim blnRestored As Boolean 

   Set db = CurrentDb()  

  For intCount = 0 To db.TableDefs.Count - 1

   strTableName = db.TableDefs(intCount).Name

   If Left(strTableName, 4) = "~tmp" Then

   strSQL = "SELECT DISTINCTROW [" &; strTableName &; "].* INTO " &; Mid(strTableName, 5) &; " FROM [" &; str

TableName &; "];"   

DoCmd.SetWarnings False   

DoCmd.RunSQL strSQL   M

sgBox "A deleted table has been restored, using the name '" &; Mid(strTableName, 5) &;

 "'", vbOKOnly, "Restored"   blnRestored = True   

End If   

Next intCount    

If blnRestored = False Then  MsgBox "No recoverable tables found", vbOKOnly   

End If   '*EXIT/ERROR*  ExitHere:   

DoCmd.SetWarnings True   Set db = Nothing   

Exit Sub   

ErrorHandler:   

MsgBox Err.Description   

Resume ExitHere   

End Sub

They have mentioned all the best softwares available in the market be it