Private Sub txtConfirmacion_Change()
Dim FechaConvertida As String
Dim Dia As String
Dim Mes As String
Dim Ao As String

    Dia = Mid(txtFechaInicial.Text, 4, 2)
    Mes = Left(txtFechaInicial.Text, 2)
    Ao = Right(txtFechaInicial.Text, 2)
    FechaConvertida = Dia & "/" & Mes & "/" & Ao

DataConfirmacion.DatabaseName = frmMain.Ap_Path & frmMain.dbName
DataConfirmacion.RecordsetType = 1
Esta es la consulta que se hace para desplegar nicamente los registros que
 tengan en el campo NComfirmacion caracteres como lo escrito en el cuadro
de texto txtConfirmacion
DataConfirmacion.RecordSource = "Select NConfirmacion, No_cupon, Nombre, Hotel, Sub_canal, Agente, Pagado, Actividad, Hora, Canal_venta FROM Reservaciones WHERE (Reservaciones.Fecha = #" & FechaConvertida & "#) And (Reservaciones.NConfirmacion Like '*" & txtConfirmacion.Text & "*')"
DataConfirmacion.Refresh
    DBGrid1.Columns(0).Width = 1200
    DBGrid1.Columns(1).Width = 1200
    DBGrid1.Columns(2).Width = 2000
    DBGrid1.Columns(3).Width = 1200
    DBGrid1.Columns(4).Width = 1200
    DBGrid1.Columns(5).Width = 1500
    DBGrid1.Columns(6).Width = 700
    DBGrid1.Columns(7).Width = 1100
    DBGrid1.Columns(8).Width = 700
  Set Cols = DBGrid1.Columns
For Each c In Cols
c.Visible = False
Next c
Cols(0).Visible = True
Cols(1).Visible = True
Cols(2).Visible = True
Cols(3).Visible = True
Cols(4).Visible = True
Cols(5).Visible = True
Cols(6).Visible = True
Cols(7).Visible = True
Cols(8).Visible = True
    DBGrid1.Columns(0).Caption = "Confirmacion"
    DBGrid1.Columns(1).Caption = "Cupon"
    DBGrid1.Columns(2).Caption = "Nombre"
    DBGrid1.Columns(3).Caption = "Hotel"
    DBGrid1.Columns(4).Caption = "Sub Canal"
    DBGrid1.Columns(5).Caption = "Agente"
    DBGrid1.Columns(6).Caption = "Pagado"
    DBGrid1.Columns(7).Caption = "Actividad"
    DBGrid1.Columns(8).Caption = "Hora"
If DataConfirmacion.Recordset.RecordCount = 0 Then
   MsgBox "No hay registros a desplegar"
   Exit Sub
    End If
    DataConfirmacion.Recordset.MoveFirst
End Sub
