CONEXÃO COM FIREBIRD

  [ô]declara a variavel da string de conexão
        Dim conFB As String


        [ô]define a string de conexão usando o usuário e senha padrão

        conFB = [Ô]User=SYSDBA;Password=masterkey;Database=C:\Bancos\Dados\banco.fdb;DataSource=localhost;Port=3050;Dialect=3[Ô]

        [ô]define os objetos connection command e datareader

        Dim connection As FbConnection = New FbConnection(conFB)


        [ô]abre a conexao

        connection.Open()    <<<<--------------------------  Nesta linha ocorre o erro




        [ô]define o comando SQL para selecionar todos os clientes da tabela CLIENTES na conexao atual

        Dim command As FbCommand = New FbCommand([Ô]select * from game[Ô], connection)


        [ô]gera o datareader

        Dim reader As FbDataReader = command.ExecuteReader()


        [ô]limpa a lista

        Me.List1.Items.Clear()


        [ô]percorre o datareader e preenche o listbox

        While reader.Read

            Me.List1.Items.Add(reader.GetInt16(0) & [Ô] - [Ô] & reader.GetString(1) & [Ô] - [Ô] & reader.GetString(2))

        End While


        [ô]fecha o datareader

        reader.Close()

        [ô]fecha a conexao

        connection.Close()