DataSource Controls :: Select Where Columndate = Date Today

I have a problem and i cant understand it.

My code :

strSql = "select * from tblannouncements where announcementdate = " & Date.Today
conn = New SqlConnection(strConn)
cmd = New SqlCommand(strSql, conn)
conn.Open()
dtr2 = cmd.ExecuteReader()
GridView6.DataSource = dtr
GridView6.DataBind()

It works but i dont receive any record and when i remove the = and enter a >

then all the records are displayed.I use datetime as data type in my database.

I also use this to add records if has anything to do with my prob but the records are added fine.

strSql = String.Format("Insert into tblannouncements values ('{0}','{1}')", txtAdminannouncements.Text, Date.Today)
conn = New SqlConnection(strConn)
cmd = New SqlCommand(strSql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

This is how is the format in my database table : 25/02/2010 00:00:00