Not working correctly

[snipered]

My aim below is to select all invoices where the user is a specfic user (works correctly) and the date = today (using system date-not working correctly)

can someone help me out please?

Public Function GetData() As ADODB.Recordset
   Dim strsql As String
   ' Dim r As ADODB.Recordset '
   Dim c As ADODB.Connection
   Dim multipledate
    raised = FrmInvoice.StatusBar1.Panels(3).Text
  multipledate = Date
   Set c = New ADODB.Connection
   c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=.\Invoice.mdb;"
   c.Open
 
   strsql = "SELECT * from Invoice WHERE RaisedBy = '" & raised & "' AND [Date] = '" & multipledate & "' "
   'strsql = strsql & "WHERE Raisedby = '" & raised & "' "
   'Set rsquery = New ADODB.Recordset
   
   
      rsquery.Open strsql, c, adOpenDynamic, adLockPessimistic
 
   Set GetData = rsquery
End Function

[westconn1]

i believe you have to use # date # to query by date

rgds pete

[Hack]

Try putting # signs around your date variable, like:

#" & multipledate & "#