Bom dia doutores,

É o seguinte, baixei um modelo de cadastro com pesquisa do Tomás Vásquez, quand adaptei para o meu sistema começou a dar erro "ERRO DE COMPILAÇÃO : O tipo definido pelo usuário não foi definido" no seguinte trecho em Negrito.

Private Sub PopulaListBox(ByVal RazSocial As String, _
ByVal NomeFantasia As String, _
ByVal Cidade As String, _
ByVal Estado As String, _
ByVal AtivSetor As String, _
ByVal Contato As String)

Dim conn As ADODB.Connection

Private Sub UserForm_Initialize()
    'preenche o cboDirecao e seleciona o primeiro item
    cboDirecao.Clear
    cboDirecao.AddItem "Ascendente"
    cboDirecao.AddItem "Descendente"
    cboDirecao.ListIndex = 0
    
    Call PopulaListBox(vbNullString, vbNullString, vbNullString, vbNullString, vbNullString, vbNullString)
End Sub

Private Sub PopulaListBox(ByVal RazSocial As String, _
                          ByVal NomeFantasia As String, _
                          ByVal Cidade As String, _
                          ByVal Estado As String, _
                          ByVal AtivSetor As String, _
                          ByVal Contato As String)

    On Error GoTo TrataErro

    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sql As String
    Dim sqlWhere As String
    Dim sqlOrderBy As String
    Dim i As Integer
    Dim campo As Field
    Dim myArray() As Variant

    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"
        .Open
    End With

Eu só modifiquei os nomes, mas a estrutura é a mesma, oq estou fazendo errado?