error en busqueda SQL

elgranmon
02 de Junio del 2004
Al hacer la siguiente busqueda de la que incluyo mas abajo el codigo me sale el siguiente error:

EL CONJUNTO DE FILAS NO ADMITE MARCADORES

Tengo un adodc1 donde me pide un recordsource donde tengo q escribir una sentencia sql...es que si le pongo la tabla me casca en el datagrid toda la tabla y yo quiero q aparezca en blanco hasta q seleccione una busqueda...esta seria la primera de ellas...


Private Sub botonbus_Click()

Dim strsql As String
Dim rssql As ADODB.Recordset
Dim conexion As ADODB.Connection
Set conexion = New ADODB.Connection

'Empiezo con las diferentes opciones que surgen de las combinaciones entre las opciones
'de arriba: fechas, unidad, entrada o salida...

If Option1.Value = True Then

strsql = "SELECT * FROM Tabla1 WHERE Fecha = #" & Format(DTPicker1.Value, "mm/dd/yy") & "#"

End If

With conexion
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source = C:Visualaplicativo180504db3.mdb"
.Open
End With


Set rssql = New ADODB.Recordset
rssql.Open strsql, conexion, , adLockOptimistic, adCmdText
Set DGBusqueda.DataSource = rssql

--------

Muchas Gracias!!