Hello friends,
I am having problem in eliminating spacial characters in VB
I am having following statement to connect to sql server database:

sConnString = "Provider=SQLOLEDB;Data Source=DataSource;Initial Catalog=Database;User ID=dbUser;password=dbPass;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"

   The variables in the connection string are:
DataSource, Database, dbUser and dbPass having respective values in a file. I am reading the file and fetching the values but when I fetch them, The values come in the form of double quoted string.
Thus the double quotes terminate the connection string. and connection to dadabase fails.

Please Help if possible
Thanking You
Dadasaheb

To remove double quotes from a string you need
s = Replace(s, """", "")

You can also write a function as follows:

'//start code
'use this one for normal text issues
Function sqlFixUp(TextIn)
  'fix the string being sent to the database
  sqlFixUp = ReplaceStr(TextIn, "'", "''", 0)
End Function
'use this one for non-printable characters as well
Function JetsqlFixUp(TextIn)
  'fix the string that comes from the database
  Dim strTMP As String
  strTMP = ReplaceStr(TextIn, "'", "''", 0)
  strTMP = ReplaceStr(TextIn, "&", "&&", 0)
  JetsqlFixUp = ReplaceStr(strTMP, "|", "' & chr(124) & '", 0)
End Function

'this is a generic function that is being called by both above.
Function ReplaceStr(TextIn, ByVal SearchStr As String, ByVal Replacement As String, _
                    ByVal CompMode As Integer)

   Dim WorkText As String, Pointer As Integer
   If IsNull(TextIn) Then
    ReplaceStr = Null
   Else
    WorkText = TextIn
    Pointer = InStr(1, WorkText, SearchStr, CompMode)
    Do While Pointer > 0
      WorkText = Left(WorkText, Pointer - 1) & Replacement & _
                       Mid(WorkText, Pointer + Len(SearchStr))
         Pointer = InStr(Pointer + Len(Replacement), WorkText, _
                         SearchStr, CompMode)
    Loop
    ReplaceStr = WorkText
    End If
End Function
'//end code

Regards

Bruce