Cita:
La coneccion a la base de datos la genero desde el evento initialize y funciona perfecto.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
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
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!