Gente, tengo el siguiente codigo:
Cita: Private Sub Command1_Click()
Dim fecha1 As String
Dim consulta As String
rsbuscventas.Close
Set rsbuscventas = Nothing
fecha1 = Text1.Text & "/" & Text2.Text & "/" & Text3.Text
If Combo1.Text <> "Todos" Then
consulta = "SELECT * FROM ventas where fecha=" & "'" & fecha1 & "'"
rsbuscventas.Open consulta, cnfrm, adOpenDynamic, adLockOptimistic
Else
consulta = "SELECT * FROM ventas WHERE vendedor=" & "'" & Combo1.Text & "'"
rsbuscventas.Open consulta, cnfrm, adOpenDynamic, adLockOptimistic
End If
Set MSHFlexGrid1.DataSource = rsbuscventas
MSHFlexGrid1.Refresh
End Sub
La coneccion a la base de datos la genero desde el evento initialize y funciona perfecto.
El problema es que cuando lo quiero ejecutar me tira error en la consulta, dice error en bloque o variable de bloque (o algo asi).
Me podrian decir que está mal en la consulta?
Muchas gracias!