title: VB.NET error message - "Option Strict On disallows implicit conversions from 'Object' to 'String'"
body: <p>I have an error in my <a href="http://en.wikipedia.org/wiki/Visual_Basic_.NET" rel="nofollow noreferrer">VB.NET</a> program. I have tried various casts, etc., but it just will not resolve the issue - so reluctantly I post it here to see if anyone else has a similar problem.</p>
  <h3>Error message</h3>
  <blockquote>
  <p>Error 1   Option Strict On disallows implicit conversions from 'Object' to 'String'.</p>
  </blockquote>
  <h3>Code</h3>
  <pre><code>Private DS As New DataSet ' Languages
  Function TransTxt(ByVal Frm As String, ByVal Item As String) As String
  
      Dim language As String
      Select Case My.Settings.Language
          Case 0 : language = &quot;en&quot; ' English
          Case 1 : language = &quot;fr&quot; ' French
          Case 2 : language = &quot;it&quot; ' Italian
          Case 3 : language = &quot;sp&quot; ' spanish
          Case 4 : language = &quot;pt&quot; ' portuguese
          Case 5 : language = &quot;de&quot; ' german
          Case 6 : language = &quot;du&quot; ' dutch
          Case Else : language = &quot;en&quot; ' English
      End Select
  
  
      Try 'ONE of these rows is the error
          Dim DR() As DataRow = DS.Tables(Frm).Select(&quot;Tag = '&quot; &amp; Item &amp; &quot;'&quot;)
          Return DR(0).Item(language) 
          Catch ex As Exception 
            Return &quot;- error -&quot; &amp; Item
      End Try 
  End Sub
  </code></pre>