Access query doesn't run on workbook close - excel

Question

I'm trying to run an Access delete query when I close my Excel workbook. I want the DELETE query to delete any record that is prior to today's date in the "ResDate" field. Below is the code I have written. The workbook closes but the records remain in the database (TR table).
I thought this would work but am striking out so far. Any suggestions on getting this to work would be greatly appreciated. Thanks for the help...…….
Const ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\MyDatabase\TRC.mdb;Persist Security Info=False"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set Connection = New ADODB.Connection
Connection.ConnectionString = ConnectionString
Connection.Open
VSQL = "DELETE * FROM [TR] WHERE [TR].ResDate < " & Date
Set RecSet1 = Connection.Execute(VSQL, dbrows, adCmdText)
Connection.Close
Set RecSet1 = Nothing
End Sub

Answer 1

Use the Access Date() function in your SQL statement, instead of inserting the date as text into the statement.
Include Option Explicit in your module's Declarations section and run Debug->Compile from the VB Editor's main menu. Fix the first compile error Access complains about, and then Debug->Compile again. Repeat until no more errors.
Opening a recordset based on a DELETE query is not useful because a DELETE does not return records. Simply execute your query instead.
Const ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\MyDatabase\TRC.mdb;Persist Security Info=False"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cn As ADODB.Connection
Dim VSQL As String
Dim dbrows As Long
Set cn = New ADODB.Connection
cn.ConnectionString = ConnectionString
cn.Open
VSQL = "DELETE * FROM [TR] WHERE [TR].ResDate < Date()"
cn.Execute VSQL, dbrows, adCmdText
cn.Close
End Sub

Answer 2

ALWAYS USE PARAMETERS!
When you do VSQL = "DELETE * FROM [TR] WHERE [TR].ResDate < " & Date, depending on your locale, that can result in several issues.
For example, DELETE * FROM [TR] WHERE [TR].ResDate < 2019-11-08, and 2019 minus 11 minus 08 is equal to 2000 and CDate(2000) is 1905-06-22, so this is a valid query, but probably won't delete what you want to delete.
In an alternate locale, it might be 11/08/2019, and 11 divided by 8 divided by 2019 is approximately 0 and CDATE(0) is 1899-12-30.
Instead, pick and choose from How do I use parameters in VBA in the different contexts in Microsoft Access?, for example:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set Connection = New ADODB.Connection
Connection.ConnectionString = ConnectionString
Connection.Open
VSQL = "DELETE * FROM [TR] WHERE [TR].ResDate < " & Date
With CreateObject("ADODB.Command")
Set .ActiveConnection = Connection
.CommandText = "DELETE * FROM [TR] WHERE [TR].ResDate < ?"
Set RecSet1 = .Execute(, Array(Date))
End With
Connection.Close
Set RecSet1 = Nothing
End Sub