Trying to Query between two dates

So I have inherited a workbook that contains a broken macro that I can't figure out how to fix and I'm hoping the forums can come through for me and help me out of a bind...again

Here is the code in the macro :

Sub RefreshQuery()
'
' RefreshQuery Macro
'
Dim queryPreText As String
Dim queryPostText As String
Dim valueToFilter As String
Dim paramPosition As Integer
valueToFilter = "[GL_Posting_Date] <="

With ActiveWorkbook.Connections("XXXX dbo view_AR_Apply_Detail").OLEDBConnection
queryPreText = .CommandText
paramPosition = InStr(queryPreText, valueToFilter) + Len(valueToFilter) - 1
queryPreText = Left(queryPreText, paramPosition)
queryPostText = .CommandText
queryPostText = Right(queryPostText, Len(queryPostText) - paramPosition)
queryPostText = Right(queryPostText, Len(queryPostText) - InStr(queryPostText, ")") + 1)
.CommandText = queryPreText & " '" & Range("N3").Value & "'" & queryPostText
End With
ActiveWorkbook.Connections("XXXX dbo view_AR_Apply_Detail").Refresh

With ActiveWorkbook.Connections("PGLMD dbo view_AR_Apply_Detail").OLEDBConnection
queryPreText = .CommandText
paramPosition = InStr(queryPreText, valueToFilter) + Len(valueToFilter) - 1
queryPreText = Left(queryPreText, paramPosition)
queryPostText = .CommandText
queryPostText = Right(queryPostText, Len(queryPostText) - paramPosition)
queryPostText = Right(queryPostText, Len(queryPostText) - InStr(queryPostText, ")") + 1)
.CommandText = queryPreText & " '" & Range("N3").Value & "'" & queryPostText
End With
ActiveWorkbook.Connections("YY dbo view_AR_Apply_Detail").Refresh

With ActiveWorkbook.Connections("YY dbo view_AR_Apply_Detail").OLEDBConnection
queryPreText = .CommandText
paramPosition = InStr(queryPreText, valueToFilter) + Len(valueToFilter) - 1
queryPreText = Left(queryPreText, paramPosition)
queryPostText = .CommandText
queryPostText = Right(queryPostText, Len(queryPostText) - paramPosition)
queryPostText = Right(queryPostText, Len(queryPostText) - InStr(queryPostText, ")") + 1)
.CommandText = queryPreText & " '" & Range("N3").Value & "'" & queryPostText
End With
ActiveWorkbook.Connections("YY dbo view_AR_Apply_Detail").Refresh

End Sub

-----

N2 is the first date and N3 is the last date that I am looking for information for. I can't get it to run between them. Any idea how to fix the macro? The person before me got it this far but couldn't make it work right.

Any help is much appreciated.

Thanks again

Whats the error messages etc? if you can then debug to see what line(s) are causing the issue that would help.

ps You'll need to put your code inside [code] tags, highlight the Sub and click the # option in the editor.

So it is running, it just isn't running as intended. The book is supposed to pull entries between 2 dates but is instead pulling all year to date data. The questions is more academic than "can you fix the debug error". I know what they were trying, and hat they couldn't get it to work. I am just learning the basics of writing my own macros from scratch and am stuck scratching my head here.

Chances are the problem isnt a code one but a difference between what the code expects and what data it is using, without seeing your workbook its hard to see what happens. Id recommend running it as a debug and stepping through looking at the values at each step to see why its making the decisions it is, chances are theres a rogue variable name or something which can only be spotted doing this.

ok, thanks, I'll give it a shot.