Create a SQL statement in acess VBA?

See more:

MS-Access

VBA

The following code works and creates text dates such as 1/12/2004. In the loop below, I want a SQL statement to input that date into a new table, "NewDates"
NewDates has 2 fields, ID (autonumber) and TestDate (Date/Time)

The statement I want to use is:
INSERT INTO NewDates (TestDate)

Any help would be much appreciated.

Private Sub RedrawTxtRelativeList()
Dim hdclsOutput As clsNewDate
Dim iLoop As Integer

    txtRelativeList.Value = ""
    For iLoop = 1 To 100
        Set hdclsOutput = New clsNewDate
        Set hdclsOutput = hdclsDateOfDeath.Copy

        hdclsOutput.RelativeStep iLoop, ComboCalcType
        txtRelativeList.Value = txtRelativeList.Value & hdclsOutput.GDate & vbCrLf

'{
'ADD CODE HERE TO LOAD DATE INTO "NewDates" TABLE using SQL INPUT STATEMENT
'}

        Set hdclsOutput = Nothing

    Next iLoop
End Sub

Private Sub cmdCalcNewDate_Click()
    RedrawTxtRelativeList
End Sub

What I have tried:

Private Sub RedrawTxtRelativeList()
Dim hdclsOutput As clsNewDate
Dim iLoop As Integer

'My Additions
Dim strSQL As String
Dim TestDate as Date


    txtRelativeList.Value = ""
    For iLoop = 1 To 100
        Set hdclsOutput = New clsNewDate
        Set hdclsOutput = hdclsDateOfDeath.Copy

        hdclsOutput.RelativeStep iLoop, ComboCalcType
        txtRelativeList.Value = txtRelativeList.Value & hdclsOutput.GDate & vbCrLf

'My additions
        Set TestDate  = txtRelativeList.Value
        strSQL = "INSERT" & "INTO" & "tblNewDates" & "VALUES" & "(TestDate)"

        Set hdclsOutput = Nothing

    Next iLoop
End Sub

Private Sub cmdCalcNewDate_Click()
    RedrawTxtRelativeList
End Sub

UPDATED by NELEK:

[Non Solution 2 copied here]
Thanks for your response (solution 1). I've put spaces into the SQL statement. The debugger stops at

Set TestDate  = txtRelativeList.Value

I've tried this without the "Set" with the same results. I'm trying to understand what you mean by needing a reference to a database.

[Non Solution 4 copied here]
I still get stopped at the following statement:

TestDate  = Format(txtRelativeList.Value, "yyyy-MM-dd")

I get the feeling that the error is related to the fact that while txtRelativeList.Value is a string, it is not putting TestDate into a date format.