Select Parameters With Dates

I have a sqlDataSource control that has its select command and parameters set dynamically.  One of the parameters is a date, which should be in smalldatetime format (ie, 12/22/2006).  Obviously, using SQL Server, the data is stored with both date and time.  The problem is, I cannot get any data selected.   I initially thought that I needed to tell it to only look at the date and not the time, but from what I have seen this should work. Here is the pertinent code. 

dim seldate as datetime

selDate = Session("ChosenDate")

Dim SelCmd As String = "SELECT [PatientName], [AssignedTo], [CPT], [CPT2], [HospitalID], [RoomNbr], [ACType], [TxDx1], [TxDx2], [MRNbr], [Notes], [PatientID], [PCPID], [ResidentID], [Status], [CaseID], [AdmitDate], [crtd_datetime] FROM [DailyBilling] WHERE ([crtd_datetime] = @crtd_datetime) and ([AssignedTo] = @AssignedTo) and ([HospitalID] = @HospitalID) ORDER BY [PatientName]"

SqlDataSource1.SelectCommand = SelCmd

SqlDataSource1.SelectParameters.Clear()

 

 

Dim parFilterProvider As New ControlParameter()

parFilterProvider.ControlID = "ddlProvider"

parFilterProvider.Name = "AssignedTo"

parFilterProvider.Type = TypeCode.String

SqlDataSource1.SelectParameters.Add(parFilterProvider)

 

 

Dim parFilterHospital As New ControlParameter()

parFilterHospital.ControlID = "ddlHospitals"

parFilterHospital.Name = "HospitalID"

parFilterHospital.Type = TypeCode.String

SqlDataSource1.SelectParameters.Add(parFilterHospital)

 

 

 

Dim parFilterStatus As New Parameter()

parFilterStatus.Name = "crtd_datetime"

parFilterStatus.DefaultValue = selDate.ToShortDateString

parFilterStatus.Type = TypeCode.DateTime

SqlDataSource1.SelectParameters.Add(parFilterStatus)

 

Gridview1.databind()

Any ideas?