Hi guys

The following query doesn't display anything. I think the problem is in the date format. ANy help would be much appreciated.

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ws1 As Worksheet
Dim r As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=J:\\SsYSTEM.mdb;"
    Set rs = CreateObject("ADODB.Recordset")
 
 
    strsql = "SELECT DISTINCT printpoolno FROM tblmaster where username='" & Application.UserName & "' AND Date1=#" & Format("04/03/2015", "Short date") & "#"
    MsgBox strsql
     rs.Open strsql, cn
     Do While Not rs.EOF
    ComboBox1.AddItem (rs.Fields("printpoolno"))
    rs.MoveNext
    Loop
    rs.Close
Thanks