Vitinho

Bom Tarde,Estou criando um cadastro de clientes, onde tem uma parte para a pesquisa do cliente, porém quando clico em pesquisar ele primeiro abre o formulário vazio ai tenho que fechar o formulário e abri-lo novamente para ele me retornar com os dados, e eu queria que ele já carrega-se o formulário com os dados, sem ter que fechar e abrir de novo.Abaixo Segue o Código:Range("e1").Select 'começa a pesquisa pela célula d1Do Until ActiveCell = "" 'repita os passos abaixo até encontrar uma célula vaziaIf ActiveCell = txtPesquisarCliente ThenfrmEditarCliente.ShowfrmEditarCliente.txtCPF.Value = ActiveCellfrmEditarCliente.txtCodigo.Value = ActiveCell.Offset(0, -4)frmEditarCliente.txtNome.Value = ActiveCell.Offset(0, -3)frmEditarCliente.txtDataNasc.Value = ActiveCell.Offset(0, -2)frmEditarCliente.txtRG.Value = ActiveCell.Offset(0, -1)frmEditarCliente.cbSexo.Value = ActiveCell.Offset(0, 1)frmEditarCliente.cbEstadoCivil.Value = ActiveCell.Offset(0, 2)frmEditarCliente.txtEndereco.Value = ActiveCell.Offset(0, 3)frmEditarCliente.txtNumero.Value = ActiveCell.Offset(0, 4)frmEditarCliente.txtComplemento.Value = ActiveCell.Offset(0, 5)frmEditarCliente.txtCEP.Value = ActiveCell.Offset(0, 6)frmEditarCliente.txtCidade.Value = ActiveCell.Offset(0, 7)frmEditarCliente.txtBairro.Value = ActiveCell.Offset(0, 8)frmEditarCliente.cbUF.Value = ActiveCell.Offset(0, 9)frmEditarCliente.txtTelefoneResidencial.Value = ActiveCell.Offset(0, 10)frmEditarCliente.txtCelular.Value = ActiveCell.Offset(0, 11)frmEditarCliente.txtEmail.Value = ActiveCell.Offset(0, 12)Exit SubEnd IfActiveCell.Offset(1, 0).Select 'pula uma célula para baixoLoopMsgBox "Cliente Não Encontrado!", vbExclamation, "Cliente Inexistente"txtPesquisarCliente = ""txtPesquisarCliente.SetFocusQuem poder me ajudar, ficarei muito agradecido.Obrigado.