BOTÃO DE PESQUISA DENTRO DE UM FORMULARIO

Question

Pessoal, antes de qualquer coisa já agradeço pela atenção!!!!

Estou fazendo um formulário de cadastro de serviço, porém já tenho um de cadastro de cliente pronto com botão de pesquisa funcionando certinho, e dentro desse mesmo painel estou colocando um formulario de cadastro do serviço que a empresa vai prestar para esse cliente previamente cadastrado, porem nesse segundo formulario, gostaria que o botão de pesquisa me desse a opção de escolher em qual base de dados vai ser pesquisado, por exemplo: 1 para pesquisar na plan onde está o cadastro do cliente, e 2 para pesquisar na plan onde esta o cadastro do serviço,

o código que tenho até o momento está assim:

Private Sub CBPESQUISAR_Click()

On Error GoTo Erro

Dim Pesquisa As String

Pesquisa = InputBox("Digite critério de pesquisa!", "Pesquisar")

Dim Linha As Double

Linha = 1

With Planilha2

Do

Linha = Linha + 1

If .Cells(Linha, 1).Value = Pesquisa Or .Cells(Linha, 2).Value = Pesquisa Or .Cells(Linha, 3).Value = Pesquisa Or .Cells(Linha, 4).Value = Pesquisa Or .Cells(Linha, 5).Value = Pesquisa Or _

.Cells(Linha, 6).Value = Pesquisaor Or .Cells(Linha, 7).Value = Pesquisa Then

                    TID = .Cells(Linha, 1).Value

                    TNOME = .Cells(Linha, 2).Value

                    TFAZENDA = .Cells(Linha, 3).Value

                    TCIDADE = .Cells(Linha, 4).Value

                    TTELEFONE = .Cells(Linha, 5).Value

                    TWHATSAPP = .Cells(Linha, 6).Value

                    TEMAIL = .Cells(Linha, 7).Value

                    TESCRITÓRIO = .Cells(Linha, 8).Value

                    TRESPONSAVEL = .Cells(Linha, 9).Value

                    TCNPJ = .Cells(Linha, 10).Value

                    

                  Exit Sub

                  

End If

Loop Until .Cells(Linha, 1).Value = ""

MsgBox "Não encontrado!", vbInformation, "Pesquisa"

End With

Exit Sub

Erro:

MsgBox "erro!", vbCritical, "erro"

End Sub

mais uma vez obrigado!!