invalidy property value ao clicar na grid

Boa noite pessoal.

tenho a seguinte pesquisa:

If optCodigo.Value = True Then
formatFlexGridCadastro
Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where codigoCliente = " & Val(txtPesquisar.Text))
linha = 1
While Not Table_Cadastro.EOF
FlexGridCadastro.Row = linha
FlexGridCadastro.Col = 0
FlexGridCadastro.Text = Table_Cadastro("codigoCliente")
FlexGridCadastro.Col = 1
FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("telefoneCliente")), "(00)0000-0000", Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@"))
'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(99)9999-9999")
'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@")
FlexGridCadastro.Col = 2
If (Table_Cadastro!bloqueioCliente = True) Then
FlexGridCadastro.Text = "Bloqueado"
Else
FlexGridCadastro.Text = "Desbloqueado"
End If
FlexGridCadastro.Col = 3
FlexGridCadastro.Text = Table_Cadastro("nomefonte")
FlexGridCadastro.Col = 4
FlexGridCadastro.Text = Table_Cadastro("nomeCliente")
FlexGridCadastro.Col = 5
FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataCadastroCliente")), "00/00/0000", Format(Table_Cadastro("dataCadastroCliente"), "@@/@@/@@@@"))
FlexGridCadastro.Col = 6
FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("horaCadastroCliente")), "00:00:00", Format(Table_Cadastro("horaCadastroCliente"), "@@:@@"))
FlexGridCadastro.Col = 7
FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataUltimaLigacao")), "00/00/0000", Format(Table_Cadastro("dataUltimaLigacao"), "@@/@@/@@@@"))
FlexGridCadastro.Col = 8
FlexGridCadastro.Text = Table_Cadastro("nomesituacao")
FlexGridCadastro.Col = 9
FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("observacoesGeraisCadastro")), "*", Table_Cadastro("observacoesGeraisCadastro"))

Table_Cadastro.MoveNext
FlexGridCadastro.Rows = FlexGridCadastro.Rows + 1
linha = linha + 1
Wend
limparCampos
Table_Cadastro.Close
Após isso, ele carrega um FlexGrid

Quando dou um click no registro selecionado para carregar os campos textbox, dá o seguinte erro:

>
Run-time erro '380':

invalidy property value

debugo o erro e ele vai para outra sub, conforme a baixo:

Private Sub FlexGridCadastro_Click()
FlexGridCadastro.Col = 0
txtCodigoCliente.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 1
txtTelefone.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 2
If Trim(FlexGridCadastro.Text) = "Bloqueado" Then
telefoneBloqueado.Value = 1
ElseIf Trim(FlexGridCadastro.Text) = "Desbloqueado" Then
telefoneBloqueado.Value = 0
End If

FlexGridCadastro.Col = 3
comboFonte = FlexGridCadastro.Text

FlexGridCadastro.Col = 4
txtNomeCliente = FlexGridCadastro.Text

FlexGridCadastro.Col = 5
txtDataCadastro.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 6
txtHoraCadastro.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 7
txtDataUltimaLigacao.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 8
comboSituacao = FlexGridCadastro.Text

FlexGridCadastro.Col = 9
txtObservacoes = FlexGridCadastro.Text
End Sub

o que posso fazer para resolver?