Well, it *SHOULD* work if all your values in that column match what you showed in that screen shot.
Response.Write CDATE("2012-05-30") & "<hr/>"
Response.Write CDATE("2011-02-10") & "<hr/>"
Response.Write CDATE("2009-09-10") & "<hr/>"
But if any of your values there are not legal dates in the form YYYY-MM-DD then of course you could get that error.
So maybe do this:
On Error Resume Next
cncrtDate = objRS4("Cncrt_Dateseq")
dt = DATEVALUE( CDATE( cncrtDate ) )
If Err.Number > 0 Then
Response.Write "INVALID DATE:"
dt = DATE()
On Error GoTo 0
If dt = DATE() Then
Response.Write "<h1>" & cncrtDate & "</h1>"
Response.Write "<h3>" & cncrtDate & "</h3>"
Now you will get the INVALID DATE message and it will show you which of the values from your DB has got a problem.