CONEXÃO VB.NET COM FIREBIRD

  Imports FirebirdSql.Data.FirebirdClient

Public Class frm_cliente_lista

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        [ô]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=D:\Desenvolvimento\DATA.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()

        [ô]define o comando SQL para selecionar todos os clientes da tabela CLIENTES na conexao atual
        Dim command As FbCommand = New FbCommand([Ô]select * from CLIENTE[Ô], connection)

        [ô]gera o datareader
        Dim reader As FbDataReader = command.ExecuteReader()

        [ô]limpa a lista
        lstbFB.Items.Clear()

        [ô]percorre o datareader e preenche o listbox
        While reader.Read
            lstbFB.Items.Add(reader.GetInt16(0) & [Ô] - [Ô] & reader.GetString(1) & [Ô] - [Ô] & reader.GetString(2))
        End While

        [ô]fecha o datareader
        reader.Close()
        [ô]fecha a conexao
        connection.Close()
    End Sub
End Class 

 connection.Open() 

 FirebirdSql.Data.FirebirdClient.FbException: [ô]Incompatible wire encryption levels requested on client and server[ô]