Date parameter has error in Excel VBA

Question

Hi Expert,
  I follow up experts code to create a query in Excel VBA, but when running, I got error(Invalid column name "StartDate") in SQL query. I don't know how to fix it because beginner. I hope somebody can help.
The code is this.
Public Sub Run()
    Dim SQL As String
    Dim Connected As Boolean
    Dim StartDate As Date
    Dim curdate As Date
    Dim MsgDate As String
    Dim TitleMsg As String
    MsgDate = "Enter the Start Date in A2 to use for these Timesheets (d/mm/yy), or Accept the Default (Today - 30)"
    TitleMsg = "Timesheet Start Date"
    curdate = Date - 30
    MsgBox (MsgDate)
    StartDate = Application.InputBox(MsgDate, TitleMsg, FormatDateTime(curdate, vbShortDate), Type:=1)
    ' Our query
    SQL = "select [Posting Date],[Ship-to Code],[External Document No_],[Order No_],[Pallet Amount]" & _
            "from dbo.[Valley Fine Foods$Sales Shipment Header]" & _
            "where [Location Code] = 'BE' and [Pallet Vendor] = 'PECO' and [Posting Date] >= ""'StartDate'"";"
    ' Connect to the database
    Connected = Connect("vffserver9m", "vffnav2013")
    If Connected Then
        ' If connected run query and disconnect
        Call Query(SQL)
        Call Disconnect
    Else
        ' Couldn't connect
        MsgBox "Could Not Connect!"
    End If
End Sub
James Liang

Answer 1

Try
SQL = "SELECT [Posting Date], [Ship-to Code], [External Document No_], [Order No_], [Pallet Amount] " & _
"FROM dbo.[Valley Fine Foods$Sales Shipment Header] " & _
"WHERE [Location Code] = 'BE' and [Pallet Vendor] = 'PECO' and [Posting Date] >= #" & _
Format(StartDate, "yyyy-mm-dd") & "#"
or
SQL = "SELECT [Posting Date], [Ship-to Code], [External Document No_], [Order No_], [Pallet Amount] " & _
"FROM dbo.[Valley Fine Foods$Sales Shipment Header] " & _
"WHERE [Location Code] = 'BE' and [Pallet Vendor] = 'PECO' and [Posting Date] >= '" & _
Format(StartDate, "yyyy-mm-dd") & "'"
Regards, Hans Vogelaar (http://www.eileenslounge.com)