Preenchendo a combo com dados de diferentes tabelas

[Marco Canhoto]

Olá a todos!

tenho um formulário em VB6 que possui duas combobox e um DataGrid.

A idéia é que no combo cbo eu escolha entre 3 opções. Dependendo da Opção a combo pesq seja preenchida com dados dessa tabela escolhida.

Vejam o código:

Private Sub cbo_Click()

If cbo.Text = "Paciente" Then
    
    While Not rs3.EOF
        pesq.AddItem rs3!nome
        rs3.MoveNext
    Wend

Else
If cbo.Text = "Unidade" Then
   
    While Not rs2.EOF
        pesq.AddItem rs2!codigo & " - " & rs2!descricao & " - " & rs2!responsavel
        pesq.ItemData(pesq.NewIndex) = rs2!codigo
        rs2.MoveNext
    Wend

Else
If cbo.Text = "Procedimento" Then
    
    While Not rs1.EOF
        pesq.AddItem rs1!descricao
        rs1.MoveNext
    Wend

End If
End If
End If

End Sub

O problema é que cada opção só preenche a combo pesq apenas uma vez! por exemplo, eu escolho a opção "Paciente" e ele preenche. Depois eu mudo para alguma outra opção e também é preenchida. Só que ao escolher alguma opção pela segunda vez, o combo pesq esvazia! alguém sabe como posso fazer isso? Obrigado! Pessoal, já consegui a solução! É só adicionar o codigo rs.Requery que ele busca os dados novamente. vejam como ficam no código:

Private Sub cbo_Click()

If cbo.Text = "Paciente" Then
    rs3.Requery
    While Not rs3.EOF
        pesq.AddItem rs3!nome
        rs3.MoveNext
    Wend

Else
If cbo.Text = "Unidade" Then
   rs2.Requery
    While Not rs2.EOF
        pesq.AddItem rs2!codigo & " - " & rs2!descricao & " - " & rs2!responsavel
        pesq.ItemData(pesq.NewIndex) = rs2!codigo
        rs2.MoveNext
    Wend

Else
If cbo.Text = "Procedimento" Then
    rs1.Requery
    While Not rs1.EOF
        pesq.AddItem rs1!descricao
        rs1.MoveNext
    Wend

End If
End If
End If

End Sub

Desculpem aí o tópico, mas agora serve pelo menos pro pessoal conhecer, ne?