ERRO AO SALVAR REGISTRO

  conexaoFB = New FbConnection([Ô]User=SYSDBA;Password=masterkey;Database=[Ô] & DB & [Ô];DataSource=[Ô] & IP & [Ô];Port=3050;Dialect=3;Charset=WIN1252;ConnectionTimeout=30[Ô])
 

   Private Sub Salva()
        On Error GoTo Trata

        Static CMD As FbCommand

        SQL = [Ô][Ô]
        SQL = [Ô]insert into cad_cliente(nome,endereco,fone,tipo,cel,contato,dcad,cidade,uf,bairro,cep,numero,end_co,cidade_co,uf_co,[Ô] & _
        [Ô]bairro_co,cep_co,numero_co,email,site,obs,cnpj,ie) values(@nome,@end,@fone,@cel,@contato,@dcad,@tipo,@cidade,@uf,@bairro, [Ô] & _
        [Ô]@cep,@numero,@end_co,@cidade_co,@uf_co,@bairro_co,@cep_co,@numero_co,@email,@site,@obs,@cnpj,@ie)[Ô]

        CMD = New FbCommand(SQL, conexaoFB)

        CMD.Parameters.Add([Ô]@nome[Ô], FbDbType.Char, 80).Value = TXT_nome.Text
        CMD.Parameters.Add([Ô]@end[Ô], FbDbType.Char, 90).Value = TXT_end.Text
        If MSK_cadastro.Text = [Ô]  /  /[Ô] Then
            CMD.Parameters.Add([Ô]@dcad[Ô], FbDbType.Date).Value = DBNull.Value
        Else
            CMD.Parameters.Add([Ô]@dcad[Ô], FbDbType.Date).Value = FormatDateTime(MSK_cadastro.Text, DateFormat.ShortDate)
        End If
        CMD.Parameters.Add([Ô]@fone[Ô], FbDbType.Char, 13).Value = MSK_fone.Text
        CMD.Parameters.Add([Ô]@cel[Ô], FbDbType.Char, 13).Value = MSK_cell.Text
        CMD.Parameters.Add([Ô]@contato[Ô], FbDbType.Char, 50).Value = TXT_contato.Text
        CMD.Parameters.Add([Ô]@tipo[Ô], FbDbType.Char, 1).Value = CMB_Tipo.Text
        CMD.Parameters.Add([Ô]@ie[Ô], FbDbType.Char, 21).Value = MSK_ie.Text
        CMD.Parameters.Add([Ô]@cidade[Ô], FbDbType.Char, 45).Value = txt_cidade.Text
        CMD.Parameters.Add([Ô]@uf[Ô], FbDbType.Char, 2).Value = TXT_uf.Text
        CMD.Parameters.Add([Ô]@bairro[Ô], FbDbType.Char, 50).Value = TXT_Bairro.Text
        CMD.Parameters.Add([Ô]@cep[Ô], FbDbType.Char, 9).Value = MSK_cep.Text
        CMD.Parameters.Add([Ô]@numero[Ô], FbDbType.Char, 10).Value = TXT_numero.Text
        CMD.Parameters.Add([Ô]@end_co[Ô], FbDbType.Char, 50).Value = TXT_endereco_co.Text
        CMD.Parameters.Add([Ô]@cidade_co[Ô], FbDbType.Char, 50).Value = TXT_cidade_co.Text
        CMD.Parameters.Add([Ô]@uf_co[Ô], FbDbType.Char, 2).Value = TXT_uf_co.Text
        CMD.Parameters.Add([Ô]@bairro_co[Ô], FbDbType.Char, 35).Value = TXT_bairro_co.Text
        CMD.Parameters.Add([Ô]@cep_co[Ô], FbDbType.Char, 9).Value = MSK_cep_co.Text
        CMD.Parameters.Add([Ô]@numero_co[Ô], FbDbType.Char, 10).Value = TXT_numero_co.Text
        CMD.Parameters.Add([Ô]@email[Ô], FbDbType.Char, 50).Value = TXT_email.Text
        CMD.Parameters.Add([Ô]@site[Ô], FbDbType.Char, 50).Value = TXT_site.Text
        CMD.Parameters.Add([Ô]@obs[Ô], FbDbType.Char, 1000).Value = TXT_OBS.Text
        CMD.Parameters.Add([Ô]@cnpj[Ô], FbDbType.Char, 21).Value = MSK_cnpj.Text

        CMD.ExecuteNonQuery() [ô] erro acontece aqui 
        CMD.Dispose()

Trata:
        If Err.Number <> 0 Then
            Err.Clear()
            Erros()
        End If
    End Sub