Banco Access com VBA (RESOLVIDO)

[kassio07]

Então pessoal to precisando fazer um select para trazer os dados do banco access para um plicativo VBA, a pessoa deve buscar por um valor em especifico e o aplicativo deve mostrar todos os registros que possuam aquela informação. Até consegui fazer ele exibir, mas ele só mostra o primeiro registro e não todos os registros que possuam as informações buscadas.

Esse é o meu código fonte:

Private Sub but_ok_Click()
      Dim db As New ADODB.Connection
      Dim bus As New ADODB.Recordset

      db = abrirCon
      db.Open
      
      If text_busca = "" Then
      
        MsgBox "Digite alguma data para busca!", vbInformation, "Aviso"
        
      ElseIf Not IsDate(text_busca) Then
        
        MsgBox "Digite uma data para ser pesquisada!", vbInformation, "Aviso"
        text_busca = ""
        
      ElseIf IsNumeric(text_busca) Then
      
        MsgBox "Digite somente Letras!", vbInformation, "Aviso"
        text_busca = ""
        
      Else
            
        Sql = "SELECT Unidade FROM ControleAdministrativo WHERE Prazo_Renova = '" & text_busca & "'"
        bus.Open Sql, db
          
        If bus.BOF <> True Then
      
         Result = bus(0).Value
         text_result = Result
      
        Else
       
         MsgBox "Data não encontrada!", vbInformation, "Aviso"
      
        End If
      End If
End Sub

Editado Junho 12, 2012 por kassio07

[benzadeus]

Troque:

Result = bus(0).Value

text_result = Result

por:

Do While Not bus.EOF

Result = Result & bus.Fields(0)

rs.MoveNext 'Vai para próximo resultado

Loop

text_result = Result