BETWEEN

 Private Sub Consulta_mes()
    Dim Sqll As String
    Dim Mes As Integer, Dia As Integer, Ano As Integer
    Dim Dat1 As String, Dat2 As String
    Mes = cmbmes.ListIndex + 1
    Ano = UpDown1.Value
    For Dia = 31 To 28 Step -1
        If IsDate(Dia & [Ô]/[Ô] & Mes & [Ô]/[Ô] & Ano) Then
            Exit For
        End If
    Next Dia
    Dat1 = ([Ô]1/[Ô] & Mes & [Ô]/[Ô] & Ano)
    Dat2 = (Dia & [Ô]/[Ô] & Mes & [Ô]/[Ô] & Ano)
    If Len(txt_procurar.Text) > 0 Then
        Sqll = [Ô]Select * From caixa Where obs like [ô]%[Ô] & Trim(txt_procurar.Text) & [Ô]%[ô] And data Between #[Ô] & Dat1 & [Ô]# And #[Ô] & Dat2 & [Ô]#;[Ô]
    Else
        Sqll = [Ô]Select * From caixa Where data Between #[Ô] & Dat1 & [Ô]# And #[Ô] & Dat2 & [Ô]#;[Ô]
    End If
    With cmd_conexao
        .ActiveConnection = conexao
        .CommandType = adCmdText
        .CommandText = Sqll
        Set rst_conexao = .Execute
    End With
    limpa_lista
    Do While Not rst_conexao.EOF
        Set lst = List.ListItems.Add
        With lst
            Debug.Print rst_conexao!Data
            lbltrans.Caption = Val(lbltrans.Caption) + 1
            .Text = rst_conexao!contcai
            .SubItems(1) = rst_conexao!obs
            .SubItems(2) = rst_conexao!Valor
        End With
        rst_conexao.MoveNext
    Loop
    Total
    If LVZebra(List, Picture1, vbWhite, vbYellow) = False Then Exit Sub
End Sub