从SQL导入时，Excel VBA从DOB计算年龄

我正在尝试将数据从PGSQl导入Excel，我只想导入那些过时的数据。请尝试以下

其中（DATE_PART（'year'，eventdate）-DATE_PART（'year'，dob））<18

我收到一个翻译错误；预计），got（参见PostGre函数：

WHERE extract（从年龄开始的年份（eventdate，dob））<18

WHERE dobTry this

WHERE（日期部分（'year'，eventdate）-DATE部分（'year'，dob））<18

I获取翻译错误；预计），got（参见PostGre函数：

WHERE extract（从年龄开始的年份（eventdate，dob））<18

WHERE dob

Sheets("Sheet1").Select
Range("A1").Select

Dim conn As New Connection
conn.ConnectionString = sqlconnection
conn.Open
Dim rs As Recordset

Dim ITEM As String
    ITEM = "SELECT user.id,surname,forename,dob,source.eventdate,source.item " _
    & "FROM source INNER JOIN user ON source.id=user.id " _
    & "WHERE ???? "

Set rs = conn.Execute(ITEM)
With ActiveSheet.QueryTables.Add(Connection:=rs, Destination:=Range("A1"))
    .Refresh
End With

rs.Close