ERRO FIREBIRD

   Private Sub Novo()
        On Error GoTo Trata
Dnovo:

        Static CMD As FbCommand
        Static Numero As Double

        SQL = [Ô][Ô]
        SQL = [Ô]insert into paciente(nome,convenio,nascimento,idade,peso,altura,sexo,cep,rua,num,bairro,cidade,uf,fone,cell,imc,obs)[Ô] & _
        [Ô]values (@nome,@convenio,@nascimento,@idade,@peso,@altura,@sexo,@cep,@rua,@numero,@bairro,@cidade,@uf,@fone,@cell,@imc,@obs)[Ô]

        CMD = New FbCommand(SQL, conexaoFB)

        CMD.Parameters.Add([Ô]@nome[Ô], FbDbType.Char, 70).Value = TXT_nome.Text
        CMD.Parameters.Add([Ô]@convenio[Ô], FbDbType.Char, 70).Value = CMB_convenio.Text
        If MSK_nascimento.Text = [Ô]  /  /[Ô] Then
            CMD.Parameters.Add([Ô]@nascimento[Ô], FbDbType.Date).Value = DBNull.Value
        Else
            CMD.Parameters.Add([Ô]@nascimento[Ô], FbDbType.Date).Value = FormatDateTime(MSK_nascimento.Text, DateFormat.ShortDate)
        End If
        CMD.Parameters.Add([Ô]@idade[Ô], FbDbType.Char, 3).Value = IIf(TXT_idade.Text = [Ô][Ô], 0, TXT_idade.Text)

        Numero = 0
        If TXT_peso.Text <> [Ô][Ô] Then
            Numero = TXT_peso.Text
        End If
        CMD.Parameters.Add([Ô]@peso[Ô], FbDbType.Numeric).Value = Numero

        Numero = 0
        If TXT_altura.Text <> [Ô][Ô] Then
            Numero = TXT_altura.Text
        End If
        CMD.Parameters.Add([Ô]@altura[Ô], FbDbType.Numeric).Value = Numero

        CMD.Parameters.Add([Ô]@sexo[Ô], FbDbType.Char, 1).Value = CMB_sexo.Text
        CMD.Parameters.Add([Ô]@cep[Ô], FbDbType.Char, 9).Value = MSK_cep.Text
        CMD.Parameters.Add([Ô]@rua[Ô], FbDbType.Char, 60).Value = TXT_end.Text
        CMD.Parameters.Add([Ô]@numero[Ô], FbDbType.Char, 8).Value = TXT_numero.Text
        CMD.Parameters.Add([Ô]@bairro[Ô], FbDbType.Char, 45).Value = TXT_Bairro.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([Ô]@fone[Ô], FbDbType.Char, 16).Value = MSK_fone.Text
        CMD.Parameters.Add([Ô]@cell[Ô], FbDbType.Char, 16).Value = MSK_fax.Text
        CMD.Parameters.Add([Ô]@imc[Ô], FbDbType.Char, 3).Value = TXT_IMC.Text
        CMD.Parameters.Add([Ô]@obs[Ô], FbDbType.Char).Value = TXT_obs.Text


        CMD.ExecuteNonQuery()
        CMD.Dispose()

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