Form de Procurar com Erro

o codigo esta assim no frm_Clientes:

Public Tabela = New DataTable()
Public CManager = DirectCast(Me.BindingContext(Tabela), CurrencyManager)
Public ligar_com_form1 As New BindingSource

Public Sub LiberaControles()
        Tabela.clear()
        lbl_cod.DataBindings.Clear()
        txt_Nome.DataBindings.Clear()
        txt_Contato.DataBindings.Clear()
        txt_obs.DataBindings.Clear()
        lbl_cadastroText.DataBindings.Clear()
        cmb_Pessoa.DataBindings.Clear()
        txt_Endereco.DataBindings.Clear()
        txt_numero.DataBindings.Clear()
        txt_complemento.DataBindings.Clear()
        txt_cep.DataBindings.Clear()
        txt_bairro.DataBindings.Clear()
        txt_cidade.DataBindings.Clear()
        txt_uf.DataBindings.Clear()
        txt_pais.DataBindings.Clear()
        txt_Residencial.DataBindings.Clear()
        txt_Celular.DataBindings.Clear()
        txt_fax.DataBindings.Clear()
        txt_rg.DataBindings.Clear()
        txt_cpf.DataBindings.Clear()
        txt_Datanasci.DataBindings.Clear()
        cmb_Sexo.DataBindings.Clear()
        txt_Email.DataBindings.Clear()
        lbl_Registros.DataBindings.Clear()
    End Sub

    Public Sub atualizarform()
        LiberaControles()
        Dim con As New MySqlConnection("server=localhost;user Id=root;password=admin;database=workshopmanager")
        con.Open()
        Dim cmd = New MySqlCommand("SELECT cliente.*, endereco.*, pf.*, telefone.* FROM cliente INNER JOIN endereco ON (cliente.cod_Endereco=endereco.cod_Endereco) INNER JOIN telefone ON (cliente.cod_Telefone=telefone.cod_Telefone) INNER JOIN pf ON (cliente.cod_PF=pf.cod_PF)", con)
        Dim da = New MySqlDataAdapter()
        da.SelectCommand = cmd
        da.Fill(Tabela)
        lbl_cod.DataBindings.Add("Text", ligar_com_form1, "cod_Cliente")
        txt_Nome.DataBindings.Add("Text", ligar_com_form1, "nome_Cliente")
        txt_Contato.DataBindings.Add("Text", ligar_com_form1, "contato_Cliente")
        txt_obs.DataBindings.Add("Text", ligar_com_form1, "observacoes_Cliente")
        lbl_cadastroText.DataBindings.Add("Text", ligar_com_form1, "horadata_Cliente")
        cmb_Pessoa.DataBindings.Add("Text", ligar_com_form1, "tipo_Cliente")
        txt_Endereco.DataBindings.Add("Text", ligar_com_form1, "nome_Endereco")
        txt_numero.DataBindings.Add("Text", ligar_com_form1, "numero_Endereco")
        txt_complemento.DataBindings.Add("Text", ligar_com_form1, "complemento_Endereco")
        txt_cep.DataBindings.Add("Text", ligar_com_form1, "cep_Endereco")
        txt_bairro.DataBindings.Add("Text", ligar_com_form1, "bairro_Endereco")
        txt_cidade.DataBindings.Add("Text", ligar_com_form1, "cidade_Endereco")
        txt_uf.DataBindings.Add("Text", ligar_com_form1, "uf_Endereco")
        txt_pais.DataBindings.Add("Text", ligar_com_form1, "pais_Endereco")
        txt_Residencial.DataBindings.Add("Text", ligar_com_form1, "residencial_Telefone")
        txt_Celular.DataBindings.Add("Text", ligar_com_form1, "celular_Telefone")
        txt_fax.DataBindings.Add("Text", ligar_com_form1, "fax_Telefone")
        txt_rg.DataBindings.Add("Text", ligar_com_form1, "rg_PF")
        txt_cpf.DataBindings.Add("Text", ligar_com_form1, "cpf_PF")
        txt_Datanasci.DataBindings.Add("Text", ligar_com_form1, "dataNascimento_PF")
        cmb_Sexo.DataBindings.Add("Text", ligar_com_form1, "sexo_PF")
        txt_Email.DataBindings.Add("Text", ligar_com_form1, "email_PF")
        lbl_Registros.Text = (CManager.Position + 1) & " de " & CManager.Count
        con.Close()
    End Sub

Private Sub frm_Clientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              atualizarform()
End Sub

Public Sub btn_anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_anterior.Click
        ligar_com_form1.MovePrevious()
        lbl_Registros.Text = (CManager.Position + 1) & " de " & CManager.Count
    End Sub

    Public Sub btn_prox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_prox.Click
        ligar_com_form1.MoveNext()
        lbl_Registros.Text = (CManager.Position + 1) & " de " & CManager.Count
    End Sub

e no frm_Procurar:

Dim dtt As New DataTable

Sub PesquisasCliente()
        Dim con As MySqlConnection
        Dim cmd As MySqlCommand
        con = New MySqlConnection
        con.ConnectionString = "Persist Security Info=True;server=localhost;User Id=root; password=admin;database=workshopmanager"
        con.Open()
        cmd = con.CreateCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT cliente.*, endereco.*, pf.*, telefone.* FROM cliente INNER JOIN endereco ON (cliente.cod_Endereco=endereco.cod_Endereco) INNER JOIN telefone ON (cliente.cod_Telefone=telefone.cod_Telefone) INNER JOIN pf ON (cliente.cod_PF=pf.cod_PF) WHERE nome_Cliente LIKE @pesquisa"
        cmd.Parameters.Add("@pesquisa", MySqlDbType.VarChar)
        cmd.Parameters("@pesquisa").Value = "%" + txt_Pesquisa.Text + "%"
        dtt.Load(cmd.ExecuteReader())
        DataGridView1.DataSource = dtt.Copy()
        con.Close()
        DataGridView1.Columns("observacoes_cliente").Visible = False
        DataGridView1.Columns("horadata_cliente").Visible = False
        DataGridView1.Columns("tipo_cliente").Visible = False
        DataGridView1.Columns("cod_PF").Visible = False
        DataGridView1.Columns("cod_Telefone").Visible = False
        DataGridView1.Columns("cod_Endereco").Visible = False
        DataGridView1.Columns("complemento_Endereco").Visible = False
        DataGridView1.Columns("pais_Endereco").Visible = False
        DataGridView1.Columns("UF_Endereco").Visible = False
        DataGridView1.Columns("rg_PF").Visible = False
        DataGridView1.Columns("cpf_PF").Visible = False
        DataGridView1.Columns("dataNascimento_PF").Visible = False
        DataGridView1.Columns("sexo_PF").Visible = False
        DataGridView1.Columns("fax_Telefone").Visible = False
        DataGridView1.Columns("celular_Telefone").Visible = False
        DataGridView1.Columns("residencial_Telefone").Visible = False
        DataGridView1.Columns("cod_Endereco1").Visible = False
        DataGridView1.Columns("cod_Telefone1").Visible = False
        DataGridView1.Columns("cod_PF1").Visible = False
        DataGridView1.Columns("numero_Endereco").Visible = False
        DataGridView1.Columns(0).Width = 50
        DataGridView1.Columns(0).HeaderText = "Código"
        DataGridView1.Columns(1).Width = 200
        DataGridView1.Columns(1).HeaderText = "Nome"
        DataGridView1.Columns(2).Width = 80
        DataGridView1.Columns(2).HeaderText = "Contato"
        DataGridView1.Columns(23).Width = 200
        DataGridView1.Columns(23).HeaderText = "Email"
        DataGridView1.Columns(10).Width = 200
        DataGridView1.Columns(10).HeaderText = "Endereço"
        DataGridView1.Columns(13).Width = 100
        DataGridView1.Columns(13).HeaderText = "CEP"
        DataGridView1.Columns(14).Width = 100
        DataGridView1.Columns(14).HeaderText = "Bairro"
        DataGridView1.Columns(15).Width = 100
        DataGridView1.Columns(15).HeaderText = "Cidade"
    End Sub

Private Sub txt_Pesquisa_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Pesquisa.TextChanged
                   PesquisasCliente()
End Sub

Sub TextboxsCliente()
        frm_Clientes.atualizarform()
        frm_Clientes.ligar_com_form1.DataSource = dtt
        codcliente = DataGridView1.Item(0, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.lbl_cod.Text = codcliente
        frm_Clientes.txt_Nome.Text = DataGridView1.Item(1, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_Contato.Text = DataGridView1.Item(2, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_obs.Text = DataGridView1.Item(3, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.lbl_cadastroText.Text = DataGridView1.Item(4, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.cmb_Pessoa.Text = DataGridView1.Item(5, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_Endereco.Text = DataGridView1.Item(10, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_numero.Text = DataGridView1.Item(11, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_complemento.Text = DataGridView1.Item(12, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_cep.Text = DataGridView1.Item(13, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_bairro.Text = DataGridView1.Item(14, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_cidade.Text = DataGridView1.Item(15, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_uf.Text = DataGridView1.Item(16, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_pais.Text = DataGridView1.Item(17, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_rg.Text = DataGridView1.Item(19, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_cpf.Text = DataGridView1.Item(20, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_Datanasci.Text = DataGridView1.Item(21, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.cmb_Sexo.Text = DataGridView1.Item(22, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_Email.Text = DataGridView1.Item(23, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_Residencial.Text = DataGridView1.Item(25, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_Celular.Text = DataGridView1.Item(26, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        frm_Clientes.txt_fax.Text = DataGridView1.Item(27, DataGridView1.CurrentCell.RowIndex).Value.ToString()
        Me.Close()
    End Sub

 Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
                   TextboxsCliente()
End Sub