Erro

[Alex Mauricio]

Boa tarde 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?

Editado Outubro 22, 2009 por kuroi
Adicionar tag CODE

[kuroi]

qual a linha do erro??