Dim dbf_conn As ADODB.Connection
Dim dbf_RS As ADODB.Recordset

sql_str = "select * from " + newFile + " where dt = Date(2013,12,01)"

Set dbf_conn = New ADODB.Connection
dbf_conn.Provider = "Microsoft.Jet.OLEDB.4.0"
dbf_conn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase IV"
dbf_conn.Open

Set dbf_RS = New ADODB.Recordset
    dbf_RS.CursorType = adOpenKeyset
    dbf_RS.LockType = adLockOptimistic

dbf_RS.Open sql_str, dbf_conn

... where dt ={^2013/12/01}...
... where dt ={^'2013-12-01'}...
... where dt ={d'2013/12/01'}...
... where dt ={d'2013-12-01'}...
... where dt ={d`2013/12/01`}...
... where dt ={d`2013-12-01`}...