EXCEL + VBA [ LISTVIEW ]

raffrenan · Outubro 27, 2018

E ae galera, seguinte, estou desenvolvendo um sistema em vba no excel para a empresa que trabalho, porém estou utilizando um sistema de consulta com listview, onde ele busca do banco de dados, porém preciso que esses dados sejam mostrados em uma textbox específica, porém não estou conseguindo, segue o código:

Private Sub Btn_Consulta_Click()

    Dim strSql As String
    
    ID = Me.TxtConsulta
    
    Set rs = New ADODB.Recordset
    
    strSql = "SELECT ID_Monitor AS [Código], Nome AS [Nome do Operador],"
    strSql = strSql & " * FROM Monitores WHERE ID_Monitor LIKE '" & ID & "'"
    
    rs.Open strSql, MiConexao
    
    On Error Resume Next
    
    Me.Lista.ListItems.Clear
    
    With Me.Lista
    
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        .ColumnHeaders.Clear
        
    For i = 0 To rs.Fields.Count - 1
    
        .ColumnHeaders.Add i + 1, , VBA.UCase(rs(i).Name)
        
    Next i
    
    End With
    
    While Not rs.EOF
    
    Set Lrst = Me.Lista.ListItems.Add(Text:=rs(0))
    
        Lrst.SubItems(1) = rs(1)
        Lrst.SubItems(2) = rs(2)
        Lrst.SubItems(3) = rs(3)
        Lrst.SubItems(4) = rs(4)
        Lrst.SubItems(5) = rs(5)
        Lrst.SubItems(6) = rs(6)
    
        rs.MoveNext
    
    Wend
    
    Me.TxtConsulta = ""
    Me.TxtConsulta.SetFocus
    

End Sub

Private Sub Lista_ItemClick(ByVal Item As MSComctlLib.ListItem)

Dim Linha As Variant
    
 Linha = Me.Lista.List.Index
 
 Me.TxtNomeView = Me.Lista.List(Linha, 3)
 
End Sub

Private Sub UserForm_Initialize()

Call Conecta

End Sub

Lembrando que ele consulta normalmente e mostra na listview, porém quando eu clico em uma opção da lista ele retorna erro.