Probleme Avec RB 2008r1

[Jean-francois Toracca <jftoracca at elp-info dot fr>]

Bonjours a tous,

j'ai un petit problème. j'ai écrit les méthodes suivant en RB 2007r4  
il y a quelque mois et elle fonctionnent parfaitement. je viens de  
tester la version 2008r1 et j'obtiens une exception  
TypeMismatchException sur la fonction utilisant le Variant.
est-ce que quelqu'un pourrait me dire pourquoi s'il vous plait ??????

Function CStringValue(Extends v as variant) As string
  Return v.StringValue
End Function

Function CStringValue(Extends DBF As databasefield) As string
  dim vls_Retour As String
  dim vltc_Convert as TextConverter
  vltc_Convert=GetTextConverter(Mod_SQL.propE_Encod, Encodings.UTF8)

  vls_Retour = vltc_Convert.convert(DBF.StringValue)
  vls_Retour = vls_Retour.ReplaceAllB("##EndOfLine##", EndOfLine)

  Return vls_Retour
End Function

Merci d'avance

Jean-Francois