buscar fechas en una tabla de la base de datos

[davidtcsi]

primeramente deberan querer matarme por q sigo teniendo problemitas, ayuda plis:

Set BdEvento = OpenDatabase(App.Path & "\BdEvento.mdb")
Set VentasDias = BdEvento.OpenRecordset("SELECT * FROM ventadias WHERE nombreevento = '" & TxtData(1).Text & "' AND fechadia = #" & Text1.Text & "#", conexion, adOpenStatic, adLockOptimistic)

esto deberia de funcionar a la perfeccion pero me sale un error que dice: "Argumento no valido" en la liea de codigo: Set VentasDias = ..................

VentasDias es la tabla y BdEvento es la base de datos.

aqui esta el codigo completo a ver

Dim sql As String
Set BdEvento = OpenDatabase(App.Path & "\BdEvento.mdb")
Set VentasDias = BdEvento.OpenRecordset("SELECT * FROM ventadias WHERE nombreevento = '" & TxtData(1).Text & "' AND fechadia = #" & Text1.Text & "#", conexion, adOpenStatic, adLockOptimistic)
If VentasDias.RecordCount > 0 Then
sql = "UPDATE ventadias SET codigo='" & TxtData(0) & "', nombreevento='" & TxtData(1) & _
"', precioventa=" & TxtData(5) & ", fechadia=#" & Format(DTPnuevo, "mm/dd/yyyy") & _
"# WHERE nombreevento = '" & TxtData(1) & "' AND fechadia = #" & Text1 & "#"
Else
sql = "INSERT INTO ventadias(codigo, nombreevento, precioventa, fechadia) VALUES(" & _
TxtData(0) & ", '" & TxtData(1) & "', " & TxtData(5) & ", #" & Format(DTPnuevo, "mm/dd/yyyy") & _
"# WHERE nombreevento = '" & TxtData(1) & "' AND fechadia <> #" & Text1 & "#"
End If
conexion.Execute sql
Set VentasDias = Nothing

una ayudita mas, esto es lo q necesito para completar ensi el funcionamiento de mi sistema