Uso de variables en un select en formulario VB

[chelodelsur]

Genial

Si eso me sirve.
Mira ya había encontrado otra alternativa,
variables

Código:

Dim Vani As String
Dim Vani2 As String
Vani2 = "ani="

  If txtAni <> "" Then
   Vani = Vani2 + txtAni
  Else
  Vani = "ani Like '%'"
    End If

consulta

Código:

" Select call_Id as `ID Llamada`,port_number as `Puerto`, extension as `Anexo`, start_date as `fecha inicio`, start_time as `Hora Inicio`, end_date as `Fecha fin`, end_time as `Hora fin`,call_duration as `Duración`,dnis, ani,direction as `Direccion`, filename as `Nombre Archivo Audio`, filepath_id as `Volume Archivo` " _
         & " From `call` " _
         & " Where start_date>='2008/07/15'" _
         & " and start_date <='2008/07/31' " _
         & " and " & Vhorainicio & "" _
         & " and " & Vhorafin & "" _
         & " and " & Vani & "" _
         & " and " & Vdnis & "" _
         & " and " & Vanexo & "" _
         & " and " & Vllamada & "" _
         & " and " & Vpuerto & "" _
         & " and " & Vdireccion & "" _
         & " order by start_date desc ", cnn, adOpenKeyset, adLockOptimistic

pero como vez era más larga, y requería declarar una segunda variable por cada filtro del Where.

Tu propuesta me queda mucho más cómoda ya que tengo 6 filtros alimentados desde TxtBox ,

Muchas gracias