I'll try to do a list where the condition is check the date in the table with the system date.

DatumTid=Date()
Response.write(DatumTid)


Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_data_STRING
Recordset1.Source = "SELECT RekodCuti.nostaffuitm, RekodCuti.tarikhmula, RekodCuti.hingga, staffIT.nostaffuitm, staffIT.namastaffuitm, staffIT.kodjawatan, staffIT.kodjabatan FROM RekodCuti INNER JOIN staffIT ON RekodCuti.nostaffuitm = staffIT.nostaffuitm WHERE RekodCuti.tarikhmula = '" & DatumTid & "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

The error message is data type missmatch.
Can somebody help me.

What is the datatype for the column "tarikhmula"?

The dattype for tarikhmula is date/time

Which database server are you using? MS SQL or MS Access?