Hola a todos, alguien puede ayudarme, no se lo a que esta pasando


quiero crear una consulta con fecha en sql pero al pedir el resultado no me muestra nada, lo estoy haciendo con vb 6 con un grid


Dim x As String
Dim rsResultado As New Recordset
x = "Select idproyecto,fechaevent from dtos_grales where fechaevent = '" & dcUsuario.BoundText & "'" & "group by idproyecto, fechaevent "
If dcUsuario.Text = "" Then
MsgBox "Ingrese la fecha "vbSystemModal + vbInformation, "Info..."
Else
rsResultado.CursorLocation = adUseClient
rsResultado.Open x, conEventos, adOpenDynamic, adLockOptimistic
Set dgResultado.DataSource = rsResultado
dcUsuario.Text = UCase(dcUsuario)
' cmdAgregar.Enabled = True

With dgResultado
.Columns(0).Width = 1500
.Columns(1).Width = 1500
.Columns(2).Width = 2500
.Columns(3).Width = 1500
.Columns(4).Width = 1500
End With

End If