Jump to content

Carregar listview vba excel com banco de dados SQLite


Recommended Posts

Andre Guedelha

Bom dia a todos.

Sou iniciante em vba excel, e estou a desenvolver projeto onde possui listview que deve carregar

dados da tabela existente no banco de dados SQLite.

Estou tentando com o código abaixo, contudo sem sucesso até o momento.

Se alguém puder me ajudar ficarei grato.

Option Explicit
Const corDisabledTextBox    As Long = -2147483633
Const corEnabledTextBox     As Long = -2147483643
Public Indice               As Long
Public cx                   As New ClasseConexao
Public banco                As New ADODB.Recordset
Public Sql                  As String
Public ProcurarPor          As String
Public OrdenarPor           As String
Public Ordem                As String
Sub cboOrdem_Change()
    Select Case cboOrdem.ListIndex
        Case 0
            Ordem = "DESC"
        Case 1
            Ordem = "ASC"
    End Select
    txtPesquisa_Change
End Sub
Private Sub cboOrdenarPor_Change()
    txtPesquisa_Change
End Sub
Private Sub chkPesquisa_Click()
    txtPesquisa_Change
End Sub
Private Sub lstv_Dblclick()
    With CONTROLECNISp
        Sql = "SELECT Codigo,Empresa,SeqINSS,CNPJ,Estado,CTPS,Duplica,Final,Fonte,Status,Obs,Admissao,Demissao,Atividade,Data1,Prov1,Data2,Prov2,Data3,Prov3,Data4,Prov4," _
& " Data5,Prov5,Data6,Prov6,Data7,Prov7,Data8,Prov8,Data9,Prov9,Data10,Prov10,Data11,Prov11,Data12,Prov12,Data13,Prov13,Data14,Prov14,Data15,Prov15," _
& " Data16,Prov16,Data17,Prov17,Data18,Prov18,Data19,Prov19,Data20,Prov20,Data21,Prov21,Data22,Prov22,Data23,Prov23,Data24,Prov24,Data25,Prov25,Data26,Prov26," _
& " Data27,Prov27,Data28,Prov28,Data29,Prov29,Data30,Prov30,Data31,Prov31,Data32,Prov32,Data33,Prov33,Data34,Prov34,Data35,Prov35,Data36,Prov36,Data37,Prov37," _
& " Data38,Prov38,Data39,Prov39,Data40,Prov40,Data41,Prov41,Data42,Prov42,Data43,Prov43,Data44,Prov44,Data45,Prov45,Data46,Prov46,Data47,Prov47,Data48,Prov48," _
& " Data49,Prov49,Data50,Prov50,Data51,Prov51,Data52,Prov52,Data53,Prov53,Data54,Prov54,Data55,Prov55,Data56,Prov56,Data57,Prov57,Data58,Prov58,Data59,Prov59," _
& " Data60,Prov60,Data61,Prov61,Data62,Prov62,Data63,Prov63,Data64,Prov64,Data65,Prov65,Data66,Prov66,Data67,Prov67,Data68,Prov68,Data69,Prov69,Data70,Prov70," _
& " Data71,Prov71,Data72,Prov72,Data73,Prov73,Data74,Prov74,Data75,Prov75,Data76,Prov76,Data77,Prov77,Data78,Prov78,Data79,Prov79,Data80,Prov80,Data81,Prov81," _
& " Data82,Prov82,Data83,Prov83,Data84,Prov84,Data85,Prov85,Data86,Prov86,Data87,Prov87,Data88,Prov88,Data89,Prov89,Data90,Prov90,Data91,Prov91,Data92,Prov92," _
& " Data93,Prov93,Data94,Prov94,Data95,Prov95,Data96,Prov96,Data97,Prov97,Data98,Prov98,TotalGeral FROM t_cnis"
        .Sql = .Sql & " WHERE codigo = " & lstv.SelectedItem
        Set .banco = New ADODB.Recordset
        .cx.Conectar
        .banco.Open .Sql, .cx.conn
        Call .carregaregistros
        .Indice = Id
        .lblIndice.Caption = Id
        .lblTotal.Caption = total
    Set .banco = Nothing
    .cx.Desconectar
    End With
    Unload Me
End Sub
Private Sub lstv_KeyPress(KeyAscii As Integer)
    lstv_Dblclick
End Sub
Private Sub txtPesquisa_Change()
    Dim cx As New ClasseConexao
    Dim banco As ADODB.Recordset
    Dim Sql As String
    ProcurarPor = Me.cboPesquisarPor.text
    OrdenarPor = Me.cboOrdenarPor.text
    With Me.lstv
        .ListItems.Clear
        Sql = "SELECT Codigo,Empresa,SeqINSS,CNPJ,Estado,CTPS,Duplica,Final,Fonte,Status,Obs,Admissao,Demissao,Atividade,Data1,Prov1,Data2,Prov2,Data3,Prov3,Data4,Prov4," _
& " Data5,Prov5,Data6,Prov6,Data7,Prov7,Data8,Prov8,Data9,Prov9,Data10,Prov10,Data11,Prov11,Data12,Prov12,Data13,Prov13,Data14,Prov14,Data15,Prov15," _
& " Data16,Prov16,Data17,Prov17,Data18,Prov18,Data19,Prov19,Data20,Prov20,Data21,Prov21,Data22,Prov22,Data23,Prov23,Data24,Prov24,Data25,Prov25,Data26,Prov26," _
& " Data27,Prov27,Data28,Prov28,Data29,Prov29,Data30,Prov30,Data31,Prov31,Data32,Prov32,Data33,Prov33,Data34,Prov34,Data35,Prov35,Data36,Prov36,Data37,Prov37," _
& " Data38,Prov38,Data39,Prov39,Data40,Prov40,Data41,Prov41,Data42,Prov42,Data43,Prov43,Data44,Prov44,Data45,Prov45,Data46,Prov46,Data47,Prov47,Data48,Prov48," _
& " Data49,Prov49,Data50,Prov50,Data51,Prov51,Data52,Prov52,Data53,Prov53,Data54,Prov54,Data55,Prov55,Data56,Prov56,Data57,Prov57,Data58,Prov58,Data59,Prov59," _
& " Data60,Prov60,Data61,Prov61,Data62,Prov62,Data63,Prov63,Data64,Prov64,Data65,Prov65,Data66,Prov66,Data67,Prov67,Data68,Prov68,Data69,Prov69,Data70,Prov70," _
& " Data71,Prov71,Data72,Prov72,Data73,Prov73,Data74,Prov74,Data75,Prov75,Data76,Prov76,Data77,Prov77,Data78,Prov78,Data79,Prov79,Data80,Prov80,Data81,Prov81," _
& " Data82,Prov82,Data83,Prov83,Data84,Prov84,Data85,Prov85,Data86,Prov86,Data87,Prov87,Data88,Prov88,Data89,Prov89,Data90,Prov90,Data91,Prov91,Data92,Prov92," _
& " Data93,Prov93,Data94,Prov94,Data95,Prov95,Data96,Prov96,Data97,Prov97,Data98,Prov98,TotalGeral FROM t_cnis"
    
    If Me.chkPesquisa.Value = True Then
            Sql = Sql & " WHERE " & ProcurarPor & " LIKE '%" & Me.txtPesquisa.Value & "%' ORDER BY " & OrdenarPor & " " & Ordem
        ElseIf Me.chkPesquisa.Value = False Then
            Sql = Sql & " WHERE " & ProcurarPor & " LIKE '" & Me.txtPesquisa.Value & "%' ORDER BY " & OrdenarPor & " " & Ordem
        End If
        Set banco = New ADODB.Recordset
        cx.Conectar
        On Error GoTo trata_erro
        banco.Open Sql, cx.conn
        Dim i As Integer
        For i = 0 To banco.RecordCount - 1
            If Not IsNull(banco(0)) Then
                .ListItems(1).ListSubItems.Add 1, , banco(1)
                .ListItems(1).ListSubItems.Add 2, , banco(2)
                .ListItems(1).ListSubItems.Add 3, , banco(3)
                .ListItems(1).ListSubItems.Add 4, , banco(4)
                .ListItems(1).ListSubItems.Add 5, , banco(5)
                .ListItems(1).ListSubItems.Add 6, , banco(6)
                .ListItems(1).ListSubItems.Add 7, , banco(7)
                .ListItems(1).ListSubItems.Add 8, , banco(8)
                .ListItems(1).ListSubItems.Add 9, , banco(9)
                .ListItems(1).ListSubItems.Add 10, , banco(10)
                .ListItems(1).ListSubItems.Add 11, , banco(11)
                .ListItems(1).ListSubItems.Add 12, , banco(12)
                .ListItems(1).ListSubItems.Add 13, , banco(13)
                .ListItems(1).ListSubItems.Add 14, , banco(14)
                .ListItems(1).ListSubItems.Add 15, , banco(15)
                .ListItems(1).ListSubItems.Add 16, , banco(16)
                .ListItems(1).ListSubItems.Add 17, , banco(17)
                .ListItems(1).ListSubItems.Add 18, , banco(18)
                .ListItems(1).ListSubItems.Add 19, , banco(19)
                .ListItems(1).ListSubItems.Add 20, , banco(20)
                .ListItems(1).ListSubItems.Add 21, , banco(21)
                .ListItems(1).ListSubItems.Add 22, , banco(22)
                .ListItems(1).ListSubItems.Add 23, , banco(23)
                .ListItems(1).ListSubItems.Add 24, , banco(24)
                .ListItems(1).ListSubItems.Add 25, , banco(25)
                .ListItems(1).ListSubItems.Add 26, , banco(26)
                .ListItems(1).ListSubItems.Add 27, , banco(27)
                .ListItems(1).ListSubItems.Add 28, , banco(28)
                .ListItems(1).ListSubItems.Add 29, , banco(29)
                .ListItems(1).ListSubItems.Add 30, , banco(30)
                .ListItems(1).ListSubItems.Add 31, , banco(31)
                .ListItems(1).ListSubItems.Add 32, , banco(32)
                .ListItems(1).ListSubItems.Add 33, , banco(33)
                .ListItems(1).ListSubItems.Add 34, , banco(34)
                .ListItems(1).ListSubItems.Add 35, , banco(35)
                .ListItems(1).ListSubItems.Add 36, , banco(36)
                .ListItems(1).ListSubItems.Add 37, , banco(37)
                .ListItems(1).ListSubItems.Add 38, , banco(38)
                .ListItems(1).ListSubItems.Add 39, , banco(39)
                .ListItems(1).ListSubItems.Add 40, , banco(40)
                .ListItems(1).ListSubItems.Add 41, , banco(41)
                .ListItems(1).ListSubItems.Add 42, , banco(42)
                .ListItems(1).ListSubItems.Add 43, , banco(43)
                .ListItems(1).ListSubItems.Add 44, , banco(44)
                .ListItems(1).ListSubItems.Add 45, , banco(45)
                .ListItems(1).ListSubItems.Add 46, , banco(46)
                .ListItems(1).ListSubItems.Add 47, , banco(47)
                .ListItems(1).ListSubItems.Add 48, , banco(48)
                .ListItems(1).ListSubItems.Add 49, , banco(49)
                .ListItems(1).ListSubItems.Add 50, , banco(50)
                .ListItems(1).ListSubItems.Add 51, , banco(51)
                .ListItems(1).ListSubItems.Add 52, , banco(52)
                .ListItems(1).ListSubItems.Add 53, , banco(53)
                .ListItems(1).ListSubItems.Add 54, , banco(54)
                .ListItems(1).ListSubItems.Add 55, , banco(55)
                .ListItems(1).ListSubItems.Add 56, , banco(56)
                .ListItems(1).ListSubItems.Add 57, , banco(57)
                .ListItems(1).ListSubItems.Add 58, , banco(58)
                .ListItems(1).ListSubItems.Add 59, , banco(59)
                .ListItems(1).ListSubItems.Add 60, , banco(60)
                .ListItems(1).ListSubItems.Add 61, , banco(61)
                .ListItems(1).ListSubItems.Add 62, , banco(62)
                .ListItems(1).ListSubItems.Add 63, , banco(63)
                .ListItems(1).ListSubItems.Add 64, , banco(64)
                .ListItems(1).ListSubItems.Add 65, , banco(65)
                .ListItems(1).ListSubItems.Add 66, , banco(66)
                .ListItems(1).ListSubItems.Add 67, , banco(67)
                .ListItems(1).ListSubItems.Add 68, , banco(68)
                .ListItems(1).ListSubItems.Add 69, , banco(69)
                .ListItems(1).ListSubItems.Add 70, , banco(70)
                .ListItems(1).ListSubItems.Add 71, , banco(71)
                .ListItems(1).ListSubItems.Add 72, , banco(72)
                .ListItems(1).ListSubItems.Add 73, , banco(73)
                .ListItems(1).ListSubItems.Add 74, , banco(74)
                .ListItems(1).ListSubItems.Add 75, , banco(75)
                .ListItems(1).ListSubItems.Add 76, , banco(76)
                .ListItems(1).ListSubItems.Add 77, , banco(77)
                .ListItems(1).ListSubItems.Add 78, , banco(78)
                .ListItems(1).ListSubItems.Add 79, , banco(79)
                .ListItems(1).ListSubItems.Add 80, , banco(80)
                .ListItems(1).ListSubItems.Add 81, , banco(81)
                .ListItems(1).ListSubItems.Add 82, , banco(82)
                .ListItems(1).ListSubItems.Add 83, , banco(83)
                .ListItems(1).ListSubItems.Add 84, , banco(84)
                .ListItems(1).ListSubItems.Add 85, , banco(85)
                .ListItems(1).ListSubItems.Add 86, , banco(86)
                .ListItems(1).ListSubItems.Add 87, , banco(87)
                .ListItems(1).ListSubItems.Add 88, , banco(88)
                .ListItems(1).ListSubItems.Add 89, , banco(89)
                .ListItems(1).ListSubItems.Add 90, , banco(90)
                .ListItems(1).ListSubItems.Add 91, , banco(91)
                .ListItems(1).ListSubItems.Add 92, , banco(92)
                .ListItems(1).ListSubItems.Add 93, , banco(93)
                .ListItems(1).ListSubItems.Add 94, , banco(94)
                .ListItems(1).ListSubItems.Add 95, , banco(95)
                .ListItems(1).ListSubItems.Add 96, , banco(96)
                .ListItems(1).ListSubItems.Add 97, , banco(97)
                .ListItems(1).ListSubItems.Add 98, , banco(98)
                .ListItems(1).ListSubItems.Add 99, , banco(99)
                .ListItems(1).ListSubItems.Add 100, , banco(100)
                .ListItems(1).ListSubItems.Add 101, , banco(101)
                .ListItems(1).ListSubItems.Add 102, , banco(102)
                .ListItems(1).ListSubItems.Add 103, , banco(103)
                .ListItems(1).ListSubItems.Add 104, , banco(104)
                .ListItems(1).ListSubItems.Add 105, , banco(105)
                .ListItems(1).ListSubItems.Add 106, , banco(106)
                .ListItems(1).ListSubItems.Add 107, , banco(107)
                .ListItems(1).ListSubItems.Add 108, , banco(108)
                .ListItems(1).ListSubItems.Add 109, , banco(109)
                .ListItems(1).ListSubItems.Add 110, , banco(110)
                .ListItems(1).ListSubItems.Add 111, , banco(111)
                .ListItems(1).ListSubItems.Add 112, , banco(112)
                .ListItems(1).ListSubItems.Add 113, , banco(113)
                .ListItems(1).ListSubItems.Add 114, , banco(114)
                .ListItems(1).ListSubItems.Add 115, , banco(115)
                .ListItems(1).ListSubItems.Add 116, , banco(116)
                .ListItems(1).ListSubItems.Add 117, , banco(117)
                .ListItems(1).ListSubItems.Add 118, , banco(118)
                .ListItems(1).ListSubItems.Add 119, , banco(119)
                .ListItems(1).ListSubItems.Add 120, , banco(120)
                .ListItems(1).ListSubItems.Add 121, , banco(121)
                .ListItems(1).ListSubItems.Add 122, , banco(122)
                .ListItems(1).ListSubItems.Add 123, , banco(123)
                .ListItems(1).ListSubItems.Add 124, , banco(124)
                .ListItems(1).ListSubItems.Add 125, , banco(125)
                .ListItems(1).ListSubItems.Add 126, , banco(126)
                .ListItems(1).ListSubItems.Add 127, , banco(127)
                .ListItems(1).ListSubItems.Add 128, , banco(128)
                .ListItems(1).ListSubItems.Add 129, , banco(129)
                .ListItems(1).ListSubItems.Add 130, , banco(130)
                .ListItems(1).ListSubItems.Add 131, , banco(131)
                .ListItems(1).ListSubItems.Add 132, , banco(132)
                .ListItems(1).ListSubItems.Add 133, , banco(133)
                .ListItems(1).ListSubItems.Add 134, , banco(134)
                .ListItems(1).ListSubItems.Add 135, , banco(135)
                .ListItems(1).ListSubItems.Add 136, , banco(136)
                .ListItems(1).ListSubItems.Add 137, , banco(137)
                .ListItems(1).ListSubItems.Add 138, , banco(138)
                .ListItems(1).ListSubItems.Add 139, , banco(139)
                .ListItems(1).ListSubItems.Add 140, , banco(140)
                .ListItems(1).ListSubItems.Add 141, , banco(141)
                .ListItems(1).ListSubItems.Add 142, , banco(142)
                .ListItems(1).ListSubItems.Add 143, , banco(143)
                .ListItems(1).ListSubItems.Add 144, , banco(144)
                .ListItems(1).ListSubItems.Add 145, , banco(145)
                .ListItems(1).ListSubItems.Add 146, , banco(146)
                .ListItems(1).ListSubItems.Add 147, , banco(147)
                .ListItems(1).ListSubItems.Add 148, , banco(148)
                .ListItems(1).ListSubItems.Add 149, , banco(149)
                .ListItems(1).ListSubItems.Add 150, , banco(150)
                .ListItems(1).ListSubItems.Add 151, , banco(151)
                .ListItems(1).ListSubItems.Add 152, , banco(152)
                .ListItems(1).ListSubItems.Add 153, , banco(153)
                .ListItems(1).ListSubItems.Add 154, , banco(154)
                .ListItems(1).ListSubItems.Add 155, , banco(155)
                .ListItems(1).ListSubItems.Add 156, , banco(156)
                .ListItems(1).ListSubItems.Add 157, , banco(157)
                .ListItems(1).ListSubItems.Add 158, , banco(158)
                .ListItems(1).ListSubItems.Add 159, , banco(159)
                .ListItems(1).ListSubItems.Add 160, , banco(160)
                .ListItems(1).ListSubItems.Add 161, , banco(161)
                .ListItems(1).ListSubItems.Add 162, , banco(162)
                .ListItems(1).ListSubItems.Add 163, , banco(163)
                .ListItems(1).ListSubItems.Add 164, , banco(164)
                .ListItems(1).ListSubItems.Add 165, , banco(165)
                .ListItems(1).ListSubItems.Add 166, , banco(166)
                .ListItems(1).ListSubItems.Add 167, , banco(167)
                .ListItems(1).ListSubItems.Add 168, , banco(168)
                .ListItems(1).ListSubItems.Add 169, , banco(169)
                .ListItems(1).ListSubItems.Add 170, , banco(170)
                .ListItems(1).ListSubItems.Add 171, , banco(171)
                .ListItems(1).ListSubItems.Add 172, , banco(172)
                .ListItems(1).ListSubItems.Add 173, , banco(173)
                .ListItems(1).ListSubItems.Add 174, , banco(174)
                .ListItems(1).ListSubItems.Add 175, , banco(175)
                .ListItems(1).ListSubItems.Add 176, , banco(176)
                .ListItems(1).ListSubItems.Add 177, , banco(177)
                .ListItems(1).ListSubItems.Add 178, , banco(178)
                .ListItems(1).ListSubItems.Add 179, , banco(179)
                .ListItems(1).ListSubItems.Add 180, , banco(180)
                .ListItems(1).ListSubItems.Add 181, , banco(181)
                .ListItems(1).ListSubItems.Add 182, , banco(182)
                .ListItems(1).ListSubItems.Add 183, , banco(183)
                .ListItems(1).ListSubItems.Add 184, , banco(184)
                .ListItems(1).ListSubItems.Add 185, , banco(185)
                .ListItems(1).ListSubItems.Add 186, , banco(186)
                .ListItems(1).ListSubItems.Add 187, , banco(187)
                .ListItems(1).ListSubItems.Add 188, , banco(188)
                .ListItems(1).ListSubItems.Add 189, , banco(189)
                .ListItems(1).ListSubItems.Add 190, , banco(190)
                .ListItems(1).ListSubItems.Add 191, , banco(191)
                .ListItems(1).ListSubItems.Add 192, , banco(192)
                .ListItems(1).ListSubItems.Add 193, , banco(193)
                .ListItems(1).ListSubItems.Add 194, , banco(194)
                .ListItems(1).ListSubItems.Add 195, , banco(195)
                .ListItems(1).ListSubItems.Add 196, , banco(196)
                .ListItems(1).ListSubItems.Add 197, , banco(197)
                .ListItems(1).ListSubItems.Add 198, , banco(198)
                .ListItems(1).ListSubItems.Add 199, , banco(199)
                .ListItems(1).ListSubItems.Add 200, , banco(200)
                .ListItems(1).ListSubItems.Add 201, , banco(201)
                .ListItems(1).ListSubItems.Add 202, , banco(202)
                .ListItems(1).ListSubItems.Add 203, , banco(203)
                .ListItems(1).ListSubItems.Add 204, , banco(204)
                .ListItems(1).ListSubItems.Add 205, , banco(205)
                .ListItems(1).ListSubItems.Add 206, , banco(206)
                .ListItems(1).ListSubItems.Add 207, , banco(207)
                .ListItems(1).ListSubItems.Add 208, , banco(208)
                .ListItems(1).ListSubItems.Add 209, , banco(209)
                .ListItems(1).ListSubItems.Add 210, , banco(210)
            End If
            banco.MoveNext
        Next i
        Set banco = Nothing
        cx.Desconectar
    End With
trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Me.StatusBar1.Panels(1).text = "Registros: " & Me.lstv.ListItems.Count
End Sub
Private Sub UserForm_Initialize()
    With cboPesquisarPor
        .AddItem "Codigo"
        .AddItem "Empresa"
        .AddItem "SeqINSS"
        .AddItem "CNPJ"
        .AddItem "Estado"
        .AddItem "CTPS"
        .AddItem "Duplica"
        .AddItem "Final"
        .AddItem "Fonte"
        .AddItem "Status"
        .AddItem "Obs"
        .AddItem "Admissao"
        .AddItem "Demissao"
        .AddItem "Atividade"
        .AddItem "Data1"
        .AddItem "Data2"
        .AddItem "Data3"
        .AddItem "Data4"
        .AddItem "Data5"
        .AddItem "Data6"
        .AddItem "Data7"
        .AddItem "Data8"
        .AddItem "Data9"
        .AddItem "Data10"
        .AddItem "Data11"
        .AddItem "Data12"
        .AddItem "Data13"
        .AddItem "Data14"
        .AddItem "Data15"
        .AddItem "Data16"
        .AddItem "Data17"
        .AddItem "Data18"
        .AddItem "Data19"
        .AddItem "Data20"
        .AddItem "Data21"
        .AddItem "Data22"
        .AddItem "Data23"
        .AddItem "Data24"
        .AddItem "Data25"
        .AddItem "Data26"
        .AddItem "Data27"
        .AddItem "Data28"
        .AddItem "Data29"
        .AddItem "Data30"
        .AddItem "Data31"
        .AddItem "Data32"
        .AddItem "Data33"
        .AddItem "Data34"
        .AddItem "Data35"
        .AddItem "Data36"
        .AddItem "Data37"
        .AddItem "Data38"
        .AddItem "Data39"
        .AddItem "Data40"
        .AddItem "Data41"
        .AddItem "Data42"
        .AddItem "Data43"
        .AddItem "Data44"
        .AddItem "Data45"
        .AddItem "Data46"
        .AddItem "Data47"
        .AddItem "Data48"
        .AddItem "Data49"
        .AddItem "Data50"
        .AddItem "Data51"
        .AddItem "Data52"
        .AddItem "Data53"
        .AddItem "Data54"
        .AddItem "Data55"
        .AddItem "Data56"
        .AddItem "Data57"
        .AddItem "Data58"
        .AddItem "Data59"
        .AddItem "Data60"
        .AddItem "Data61"
        .AddItem "Data62"
        .AddItem "Data63"
        .AddItem "Data64"
        .AddItem "Data65"
        .AddItem "Data66"
        .AddItem "Data67"
        .AddItem "Data68"
        .AddItem "Data69"
        .AddItem "Data70"
        .AddItem "Data71"
        .AddItem "Data72"
        .AddItem "Data73"
        .AddItem "Data74"
        .AddItem "Data75"
        .AddItem "Data76"
        .AddItem "Data77"
        .AddItem "Data78"
        .AddItem "Data79"
        .AddItem "Data80"
        .AddItem "Data81"
        .AddItem "Data82"
        .AddItem "Data83"
        .AddItem "Data84"
        .AddItem "Data85"
        .AddItem "Data86"
        .AddItem "Data87"
        .AddItem "Data88"
        .AddItem "Data89"
        .AddItem "Data90"
        .AddItem "Data91"
        .AddItem "Data92"
        .AddItem "Data93"
        .AddItem "Data94"
        .AddItem "Data95"
        .AddItem "Data96"
        .AddItem "Data97"
        .AddItem "Data98"
        .ListIndex = 1
    End With
    cboOrdenarPor.List = cboPesquisarPor.List
    cboOrdenarPor.ListIndex = 0
    With cboOrdem
        .AddItem "Crescente"
        .AddItem "Descrescente"
        .ListIndex = 0
    End With
    With Me.lstv
        .FullRowSelect = True
        .View = lvwReport
        .Gridlines = True
        .Font.Size = 9
        
        .ColumnHeaders.Add text:="Codigo", Width:=40
        .ColumnHeaders.Add text:="Empresa", Width:=100
        .ColumnHeaders.Add text:="SeqINSS", Width:=50
        .ColumnHeaders.Add text:="CNPJ", Width:=60
        .ColumnHeaders.Add text:="Estado", Width:=60
        .ColumnHeaders.Add text:="CTPS", Width:=70
        .ColumnHeaders.Add text:="Duplica", Width:=70
        .ColumnHeaders.Add text:="Final", Width:=70
        .ColumnHeaders.Add text:="Fonte", Width:=70
        .ColumnHeaders.Add text:="Status", Width:=80
        .ColumnHeaders.Add text:="Obs", Width:=120
        .ColumnHeaders.Add text:="Admissao", Width:=50
        .ColumnHeaders.Add text:="Demissao", Width:=50
        .ColumnHeaders.Add text:="Atividade", Width:=60
        .ColumnHeaders.Add text:="Data1", Width:=60
        .ColumnHeaders.Add text:="Prov1", Width:=70
        .ColumnHeaders.Add text:="Data2", Width:=60
        .ColumnHeaders.Add text:="Prov2", Width:=70
        .ColumnHeaders.Add text:="Data3", Width:=60
        .ColumnHeaders.Add text:="Prov3", Width:=70
        .ColumnHeaders.Add text:="Data4", Width:=60
        .ColumnHeaders.Add text:="Prov4", Width:=70
        .ColumnHeaders.Add text:="Data5", Width:=60
        .ColumnHeaders.Add text:="Prov5", Width:=70
        .ColumnHeaders.Add text:="Data6", Width:=60
        .ColumnHeaders.Add text:="Prov6", Width:=70
        .ColumnHeaders.Add text:="Data7", Width:=60
        .ColumnHeaders.Add text:="Prov7", Width:=70
        .ColumnHeaders.Add text:="Data8", Width:=60
        .ColumnHeaders.Add text:="Prov8", Width:=70
        .ColumnHeaders.Add text:="Data9", Width:=60
        .ColumnHeaders.Add text:="Prov9", Width:=70
        .ColumnHeaders.Add text:="Data10", Width:=60
        .ColumnHeaders.Add text:="Prov10", Width:=70
        .ColumnHeaders.Add text:="Data11", Width:=60
        .ColumnHeaders.Add text:="Prov11", Width:=70
        .ColumnHeaders.Add text:="Data12", Width:=60
        .ColumnHeaders.Add text:="Prov12", Width:=70
        .ColumnHeaders.Add text:="Data13", Width:=60
        .ColumnHeaders.Add text:="Prov13", Width:=70
        .ColumnHeaders.Add text:="Data14", Width:=60
        .ColumnHeaders.Add text:="Prov14", Width:=70
        .ColumnHeaders.Add text:="Data15", Width:=60
        .ColumnHeaders.Add text:="Prov15", Width:=70
        .ColumnHeaders.Add text:="Data16", Width:=60
        .ColumnHeaders.Add text:="Prov16", Width:=70
        .ColumnHeaders.Add text:="Data17", Width:=60
        .ColumnHeaders.Add text:="Prov17", Width:=70
        .ColumnHeaders.Add text:="Data18", Width:=60
        .ColumnHeaders.Add text:="Prov18", Width:=70
        .ColumnHeaders.Add text:="Data19", Width:=60
        .ColumnHeaders.Add text:="Prov19", Width:=70
        .ColumnHeaders.Add text:="Data20", Width:=60
        .ColumnHeaders.Add text:="Prov20", Width:=70
        .ColumnHeaders.Add text:="Data21", Width:=60
        .ColumnHeaders.Add text:="Prov21", Width:=70
        .ColumnHeaders.Add text:="Data22", Width:=60
        .ColumnHeaders.Add text:="Prov22", Width:=70
        .ColumnHeaders.Add text:="Data23", Width:=60
        .ColumnHeaders.Add text:="Prov23", Width:=70
        .ColumnHeaders.Add text:="Data24", Width:=60
        .ColumnHeaders.Add text:="Prov24", Width:=70
        .ColumnHeaders.Add text:="Data25", Width:=60
        .ColumnHeaders.Add text:="Prov25", Width:=70
        .ColumnHeaders.Add text:="Data26", Width:=60
        .ColumnHeaders.Add text:="Prov26", Width:=70
        .ColumnHeaders.Add text:="Data27", Width:=60
        .ColumnHeaders.Add text:="Prov27", Width:=70
        .ColumnHeaders.Add text:="Data28", Width:=60
        .ColumnHeaders.Add text:="Prov28", Width:=70
        .ColumnHeaders.Add text:="Data29", Width:=60
        .ColumnHeaders.Add text:="Prov29", Width:=70
        .ColumnHeaders.Add text:="Data30", Width:=60
        .ColumnHeaders.Add text:="Prov30", Width:=70
        .ColumnHeaders.Add text:="Data31", Width:=60
        .ColumnHeaders.Add text:="Prov31", Width:=70
        .ColumnHeaders.Add text:="Data32", Width:=60
        .ColumnHeaders.Add text:="Prov32", Width:=70
        .ColumnHeaders.Add text:="Data33", Width:=60
        .ColumnHeaders.Add text:="Prov33", Width:=70
        .ColumnHeaders.Add text:="Data34", Width:=60
        .ColumnHeaders.Add text:="Prov34", Width:=70
        .ColumnHeaders.Add text:="Data35", Width:=60
        .ColumnHeaders.Add text:="Prov35", Width:=70
        .ColumnHeaders.Add text:="Data36", Width:=60
        .ColumnHeaders.Add text:="Prov36", Width:=70
        .ColumnHeaders.Add text:="Data37", Width:=60
        .ColumnHeaders.Add text:="Prov37", Width:=70
        .ColumnHeaders.Add text:="Data38", Width:=60
        .ColumnHeaders.Add text:="Prov38", Width:=70
        .ColumnHeaders.Add text:="Data39", Width:=60
        .ColumnHeaders.Add text:="Prov39", Width:=70
        .ColumnHeaders.Add text:="Data40", Width:=60
        .ColumnHeaders.Add text:="Prov40", Width:=70
        .ColumnHeaders.Add text:="Data41", Width:=60
        .ColumnHeaders.Add text:="Prov41", Width:=70
        .ColumnHeaders.Add text:="Data42", Width:=60
        .ColumnHeaders.Add text:="Prov42", Width:=70
        .ColumnHeaders.Add text:="Data43", Width:=60
        .ColumnHeaders.Add text:="Prov43", Width:=70
        .ColumnHeaders.Add text:="Data44", Width:=60
        .ColumnHeaders.Add text:="Prov44", Width:=70
        .ColumnHeaders.Add text:="Data45", Width:=60
        .ColumnHeaders.Add text:="Prov45", Width:=70
        .ColumnHeaders.Add text:="Data46", Width:=60
        .ColumnHeaders.Add text:="Prov46", Width:=70
        .ColumnHeaders.Add text:="Data47", Width:=60
        .ColumnHeaders.Add text:="Prov47", Width:=70
        .ColumnHeaders.Add text:="Data48", Width:=60
        .ColumnHeaders.Add text:="Prov48", Width:=70
        .ColumnHeaders.Add text:="Data49", Width:=60
        .ColumnHeaders.Add text:="Prov49", Width:=70
        .ColumnHeaders.Add text:="Data50", Width:=60
        .ColumnHeaders.Add text:="Prov50", Width:=70
        .ColumnHeaders.Add text:="Data51", Width:=60
        .ColumnHeaders.Add text:="Prov51", Width:=70
        .ColumnHeaders.Add text:="Data52", Width:=60
        .ColumnHeaders.Add text:="Prov52", Width:=70
        .ColumnHeaders.Add text:="Data53", Width:=60
        .ColumnHeaders.Add text:="Prov53", Width:=70
        .ColumnHeaders.Add text:="Data54", Width:=60
        .ColumnHeaders.Add text:="Prov54", Width:=70
        .ColumnHeaders.Add text:="Data55", Width:=60
        .ColumnHeaders.Add text:="Prov55", Width:=70
        .ColumnHeaders.Add text:="Data56", Width:=60
        .ColumnHeaders.Add text:="Prov56", Width:=70
        .ColumnHeaders.Add text:="Data57", Width:=60
        .ColumnHeaders.Add text:="Prov57", Width:=70
        .ColumnHeaders.Add text:="Data58", Width:=60
        .ColumnHeaders.Add text:="Prov58", Width:=70
        .ColumnHeaders.Add text:="Data59", Width:=60
        .ColumnHeaders.Add text:="Prov59", Width:=70
        .ColumnHeaders.Add text:="Data60", Width:=60
        .ColumnHeaders.Add text:="Prov60", Width:=70
        .ColumnHeaders.Add text:="Data61", Width:=60
        .ColumnHeaders.Add text:="Prov61", Width:=70
        .ColumnHeaders.Add text:="Data62", Width:=60
        .ColumnHeaders.Add text:="Prov62", Width:=70
        .ColumnHeaders.Add text:="Data63", Width:=60
        .ColumnHeaders.Add text:="Prov63", Width:=70
        .ColumnHeaders.Add text:="Data64", Width:=60
        .ColumnHeaders.Add text:="Prov64", Width:=70
        .ColumnHeaders.Add text:="Data65", Width:=60
        .ColumnHeaders.Add text:="Prov65", Width:=70
        .ColumnHeaders.Add text:="Data66", Width:=60
        .ColumnHeaders.Add text:="Prov66", Width:=70
        .ColumnHeaders.Add text:="Data67", Width:=60
        .ColumnHeaders.Add text:="Prov67", Width:=70
        .ColumnHeaders.Add text:="Data68", Width:=60
        .ColumnHeaders.Add text:="Prov68", Width:=70
        .ColumnHeaders.Add text:="Data69", Width:=60
        .ColumnHeaders.Add text:="Prov69", Width:=70
        .ColumnHeaders.Add text:="Data70", Width:=60
        .ColumnHeaders.Add text:="Prov70", Width:=70
        .ColumnHeaders.Add text:="Data71", Width:=60
        .ColumnHeaders.Add text:="Prov71", Width:=70
        .ColumnHeaders.Add text:="Data72", Width:=60
        .ColumnHeaders.Add text:="Prov72", Width:=70
        .ColumnHeaders.Add text:="Data73", Width:=60
        .ColumnHeaders.Add text:="Prov73", Width:=70
        .ColumnHeaders.Add text:="Data74", Width:=60
        .ColumnHeaders.Add text:="Prov74", Width:=70
        .ColumnHeaders.Add text:="Data75", Width:=60
        .ColumnHeaders.Add text:="Prov75", Width:=70
        .ColumnHeaders.Add text:="Data76", Width:=60
        .ColumnHeaders.Add text:="Prov76", Width:=70
        .ColumnHeaders.Add text:="Data77", Width:=60
        .ColumnHeaders.Add text:="Prov77", Width:=70
        .ColumnHeaders.Add text:="Data78", Width:=60
        .ColumnHeaders.Add text:="Prov78", Width:=70
        .ColumnHeaders.Add text:="Data79", Width:=60
        .ColumnHeaders.Add text:="Prov79", Width:=70
        .ColumnHeaders.Add text:="Data80", Width:=60
        .ColumnHeaders.Add text:="Prov80", Width:=70
        .ColumnHeaders.Add text:="Data81", Width:=60
        .ColumnHeaders.Add text:="Prov81", Width:=70
        .ColumnHeaders.Add text:="Data82", Width:=60
        .ColumnHeaders.Add text:="Prov82", Width:=70
        .ColumnHeaders.Add text:="Data83", Width:=60
        .ColumnHeaders.Add text:="Prov83", Width:=70
        .ColumnHeaders.Add text:="Data84", Width:=60
        .ColumnHeaders.Add text:="Prov84", Width:=70
        .ColumnHeaders.Add text:="Data85", Width:=60
        .ColumnHeaders.Add text:="Prov85", Width:=70
        .ColumnHeaders.Add text:="Data86", Width:=60
        .ColumnHeaders.Add text:="Prov86", Width:=70
        .ColumnHeaders.Add text:="Data87", Width:=60
        .ColumnHeaders.Add text:="Prov87", Width:=70
        .ColumnHeaders.Add text:="Data88", Width:=60
        .ColumnHeaders.Add text:="Prov88", Width:=70
        .ColumnHeaders.Add text:="Data89", Width:=60
        .ColumnHeaders.Add text:="Prov89", Width:=70
        .ColumnHeaders.Add text:="Data90", Width:=60
        .ColumnHeaders.Add text:="Prov90", Width:=70
        .ColumnHeaders.Add text:="Data91", Width:=60
        .ColumnHeaders.Add text:="Prov91", Width:=70
        .ColumnHeaders.Add text:="Data92", Width:=60
        .ColumnHeaders.Add text:="Prov92", Width:=70
        .ColumnHeaders.Add text:="Data93", Width:=60
        .ColumnHeaders.Add text:="Prov93", Width:=70
        .ColumnHeaders.Add text:="Data94", Width:=60
        .ColumnHeaders.Add text:="Prov94", Width:=70
        .ColumnHeaders.Add text:="Data95", Width:=60
        .ColumnHeaders.Add text:="Prov95", Width:=70
        .ColumnHeaders.Add text:="Data96", Width:=60
        .ColumnHeaders.Add text:="Prov96", Width:=70
        .ColumnHeaders.Add text:="Data97", Width:=60
        .ColumnHeaders.Add text:="Prov97", Width:=70
        .ColumnHeaders.Add text:="Data98", Width:=60
        .ColumnHeaders.Add text:="Prov98", Width:=70
        .ColumnHeaders.Add text:="Total", Width:=80
        .BackColor = RGB(193, 217, 241) 'Azul Office 2007
    End With
    Me.StatusBar1.Panels(1).text = "Lançamentos Registrados: " & Me.lstv.ListItems.Count
End Sub
Sub carregaregistros()
     With banco

     With CONTROLECNISp
        Me.txtCodigo.text = Codigo
        Me.cboEmpresa.text = Empresa
        Me.txtSeqINSS.text = .Fields(2)
        Me.txtCNPJ.text = .Fields(3)
        Me.cboEstado.text = .Fields(4)
        Me.txtCTPS.text = .Fields(5)
        Me.cboDuplicidade.text = .Fields(6)
        Me.txtFinal.text = .Fields(7)
        Me.cboFonte.text = .Fields(8)
        Me.txtStatus.text = .Fields(9)
        Me.txtObs.text = .Fields(10)
        Me.txtAdmissao.text = .Fields(11)
        Me.txtDemissao.text = .Fields(12)
        Me.cboAtividade.text = .Fields(13)
        Me.txtData1.text = .Fields(14)
        Me.txtProv1.text = .Fields(15)
        Me.txtData2.text = .Fields(16)
        Me.txtProv2.text = .Fields(17)
        Me.txtData3.text = .Fields(18)
        Me.txtProv3.text = .Fields(19)
        Me.txtData4.text = .Fields(20)
        Me.txtProv4.text = .Fields(21)
        Me.txtData5.text = .Fields(22)
        Me.txtProv5.text = .Fields(23)
        Me.txtData6.text = .Fields(24)
        Me.txtProv6.text = .Fields(25)
        Me.txtData7.text = .Fields(26)
        Me.txtProv7.text = .Fields(27)
        Me.txtData8.text = .Fields(28)
        Me.txtProv8.text = .Fields(29)
        Me.txtData9.text = .Fields(30)
        Me.txtProv9.text = .Fields(31)
        Me.txtData10.text = .Fields(32)
        Me.txtProv10.text = .Fields(33)
        Me.txtData11.text = .Fields(34)
        Me.txtProv11.text = .Fields(35)
        Me.txtData12.text = .Fields(36)
        Me.txtProv12.text = .Fields(37)
        Me.txtData13.text = .Fields(38)
        Me.txtProv13.text = .Fields(39)
        Me.txtData14.text = .Fields(40)
        Me.txtProv14.text = .Fields(41)
        Me.txtData15.text = .Fields(42)
        Me.txtProv15.text = .Fields(43)
        Me.txtData16.text = .Fields(44)
        Me.txtProv16.text = .Fields(45)
        Me.txtData17.text = .Fields(46)
        Me.txtProv17.text = .Fields(47)
        Me.txtData18.text = .Fields(48)
        Me.txtProv18.text = .Fields(49)
        Me.txtData19.text = .Fields(50)
        Me.txtProv19.text = .Fields(51)
        Me.txtData20.text = .Fields(52)
        Me.txtProv20.text = .Fields(53)
        Me.txtData21.text = .Fields(54)
        Me.txtProv21.text = .Fields(55)
        Me.txtData22.text = .Fields(56)
        Me.txtProv22.text = .Fields(57)
        Me.txtData23.text = .Fields(58)
        Me.txtProv23.text = .Fields(59)
        Me.txtData24.text = .Fields(60)
        Me.txtProv24.text = .Fields(61)
        Me.txtData25.text = .Fields(62)
        Me.txtProv25.text = .Fields(63)
        Me.txtData26.text = .Fields(64)
        Me.txtProv26.text = .Fields(65)
        Me.txtData27.text = .Fields(66)
        Me.txtProv27.text = .Fields(67)
        Me.txtData28.text = .Fields(68)
        Me.txtProv28.text = .Fields(69)
        Me.txtData29.text = .Fields(70)
        Me.txtProv29.text = .Fields(71)
        Me.txtData30.text = .Fields(72)
        Me.txtProv30.text = .Fields(73)
        Me.txtData31.text = .Fields(74)
        Me.txtProv31.text = .Fields(75)
        Me.txtData32.text = .Fields(76)
        Me.txtProv32.text = .Fields(77)
        Me.txtData33.text = .Fields(78)
        Me.txtProv33.text = .Fields(79)
        Me.txtData34.text = .Fields(80)
        Me.txtProv34.text = .Fields(81)
        Me.txtData35.text = .Fields(82)
        Me.txtProv35.text = .Fields(83)
        Me.txtData36.text = .Fields(84)
        Me.txtProv36.text = .Fields(85)
        Me.txtData37.text = .Fields(86)
        Me.txtProv37.text = .Fields(87)
        Me.txtData38.text = .Fields(88)
        Me.txtProv38.text = .Fields(89)
        Me.txtData39.text = .Fields(90)
        Me.txtProv39.text = .Fields(91)
        Me.txtData40.text = .Fields(92)
        Me.txtProv40.text = .Fields(93)
        Me.txtData41.text = .Fields(94)
        Me.txtProv41.text = .Fields(95)
        Me.txtData42.text = .Fields(96)
        Me.txtProv42.text = .Fields(97)
        Me.txtData43.text = .Fields(98)
        Me.txtProv43.text = .Fields(99)
        Me.txtData44.text = .Fields(100)
        Me.txtProv44.text = .Fields(101)
        Me.txtData45.text = .Fields(102)
        Me.txtProv45.text = .Fields(103)
        Me.txtData46.text = .Fields(104)
        Me.txtProv46.text = .Fields(105)
        Me.txtData47.text = .Fields(106)
        Me.txtProv47.text = .Fields(107)
        Me.txtData48.text = .Fields(108)
        Me.txtProv48.text = .Fields(109)
        Me.txtData49.text = .Fields(110)
        Me.txtProv49.text = .Fields(111)
        Me.txtData50.text = .Fields(112)
        Me.txtProv50.text = .Fields(113)
        Me.txtData51.text = .Fields(114)
        Me.txtProv51.text = .Fields(115)
        Me.txtData52.text = .Fields(116)
        Me.txtProv52.text = .Fields(117)
        Me.txtData53.text = .Fields(118)
        Me.txtProv53.text = .Fields(119)
        Me.txtData54.text = .Fields(120)
        Me.txtProv54.text = .Fields(121)
        Me.txtData55.text = .Fields(122)
        Me.txtProv55.text = .Fields(123)
        Me.txtData56.text = .Fields(124)
        Me.txtProv56.text = .Fields(125)
        Me.txtData57.text = .Fields(126)
        Me.txtProv57.text = .Fields(127)
        Me.txtData58.text = .Fields(128)
        Me.txtProv58.text = .Fields(129)
        Me.txtData59.text = .Fields(130)
        Me.txtProv59.text = .Fields(131)
        Me.txtData60.text = .Fields(132)
        Me.txtProv60.text = .Fields(133)
        Me.txtData61.text = .Fields(134)
        Me.txtProv61.text = .Fields(135)
        Me.txtData62.text = .Fields(136)
        Me.txtProv62.text = .Fields(137)
        Me.txtData63.text = .Fields(138)
        Me.txtProv63.text = .Fields(139)
        Me.txtData64.text = .Fields(140)
        Me.txtProv64.text = .Fields(141)
        Me.txtData65.text = .Fields(142)
        Me.txtProv65.text = .Fields(143)
        Me.txtData66.text = .Fields(144)
        Me.txtProv66.text = .Fields(145)
        Me.txtData67.text = .Fields(146)
        Me.txtProv67.text = .Fields(147)
        Me.txtData68.text = .Fields(148)
        Me.txtProv68.text = .Fields(149)
        Me.txtData69.text = .Fields(150)
        Me.txtProv69.text = .Fields(151)
        Me.txtData70.text = .Fields(152)
        Me.txtProv70.text = .Fields(153)
        Me.txtData71.text = .Fields(154)
        Me.txtProv71.text = .Fields(155)
        Me.txtData72.text = .Fields(156)
        Me.txtProv72.text = .Fields(157)
        Me.txtData73.text = .Fields(158)
        Me.txtProv73.text = .Fields(159)
        Me.txtData74.text = .Fields(160)
        Me.txtProv74.text = .Fields(161)
        Me.txtData75.text = .Fields(162)
        Me.txtProv75.text = .Fields(163)
        Me.txtData76.text = .Fields(164)
        Me.txtProv76.text = .Fields(165)
        Me.txtData77.text = .Fields(166)
        Me.txtProv77.text = .Fields(167)
        Me.txtData78.text = .Fields(168)
        Me.txtProv78.text = .Fields(169)
        Me.txtData79.text = .Fields(170)
        Me.txtProv79.text = .Fields(171)
        Me.txtData80.text = .Fields(172)
        Me.txtProv80.text = .Fields(173)
        Me.txtData81.text = .Fields(174)
        Me.txtProv81.text = .Fields(175)
        Me.txtData82.text = .Fields(176)
        Me.txtProv82.text = .Fields(177)
        Me.txtData83.text = .Fields(178)
        Me.txtProv83.text = .Fields(179)
        Me.txtData84.text = .Fields(180)
        Me.txtProv84.text = .Fields(181)
        Me.txtData85.text = .Fields(182)
        Me.txtProv85.text = .Fields(183)
        Me.txtData86.text = .Fields(184)
        Me.txtProv86.text = .Fields(185)
        Me.txtData87.text = .Fields(186)
        Me.txtProv87.text = .Fields(187)
        Me.txtData88.text = .Fields(188)
        Me.txtProv88.text = .Fields(189)
        Me.txtData89.text = .Fields(190)
        Me.txtProv89.text = .Fields(191)
        Me.txtData90.text = .Fields(192)
        Me.txtProv90.text = .Fields(193)
        Me.txtData91.text = .Fields(194)
        Me.txtProv91.text = .Fields(195)
        Me.txtData92.text = .Fields(196)
        Me.txtProv92.text = .Fields(197)
        Me.txtData93.text = .Fields(198)
        Me.txtProv93.text = .Fields(199)
        Me.txtData94.text = .Fields(200)
        Me.txtProv94.text = .Fields(201)
        Me.txtData95.text = .Fields(202)
        Me.txtProv95.text = .Fields(203)
        Me.txtData96.text = .Fields(204)
        Me.txtProv96.text = .Fields(205)
        Me.txtData97.text = .Fields(206)
        Me.txtProv97.text = .Fields(207)
        Me.txtData98.text = .Fields(208)
        Me.txtProv98.text = .Fields(209)
        Me.txtTotal.text = .Fields(210)
    End With
    lblIndice.Caption = Indice
End Sub

Desde já agradeço qualquer ajuda, pois efetuei diversas pesquisas no Google e não consegui nenhum tema sobre a situação.

Grato.

Citação
Citação

"O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)

 

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.