flex grid

[Alex Mauricio]

Tenho o seguinte flexgrid

Private Sub carregaFlexGridCadastro()
Dim linha As Long
Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente Order by TbCadastro.codigoCliente")
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.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
End Sub

Quando executo o form onde está o flex grid dá o seguinte erro "Compile Error: Cant't find project or library" e aponta para a seguinte linha Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@"))

Editado Agosto 27, 2009 por kuroi
Adicionar tag CODE