Option Explicit
Dim intStartRecordCount As Integer
Dim intNewRecordCount As Integer
Private Sub Form_Load()
intStartRecordCount = GetRecordCount
End Sub
Private Sub Timer1_Timer()
intNewRecordCount = GetRecordCount
'refresh datagrid if records were added or removed
If intNewRecordCount <> intStartRecordCount Then
DataGrid1.Refresh
intStartRecordCount = intNewRecordCount
End If
End Sub
Private Function GetRecordCount()
Dim dbs As Database
Dim rst As Recordset
Set dbs = OpenDatabase("<YourDatabaseNameHere")
Set rst = dbs.OpenRecordset("SELECT COUNT(*) as CountRecords FROM <table>")
GetRecordCount = rst!CountRecords
Set dbs = Nothing
Set rst = Nothing
End Function