Can't Select Date

hi, my DatePost field in the database formated as 2/15/2006 11:40:46 AM . i try to manually give a date (no) but it give me error. the error come from myReader!. help me  to correct, thanks


 no = "2152006"
        Dim myConn As SqlConnection
        Dim myCmd As SqlCommand = New SqlCommand
        Dim myReader As SqlDataReader
        Dim strSQL As String

        myConn = New SqlConnection(ConfigurationSettings.AppSettings("ConnStr"))
        strSQL = "SELECT Author FROM Booktbl WHERE cast(Date as datetime) ='" & no & "'"
        myCmd.CommandText = strSQL
        myConn.Open()
        myCmd.Connection = myConn
        myReader = myCmd.ExecuteReader
        myReader.Read()

        Author = myReader("Author")

        myReader.Close()
        myConn.Close()
        lblShow.Text = Subject