Visual Basic

Public Sub savenewconnection(ByVal id As String, ByVal pass As String, ByVal source As String)
        Try
            Dim newdbcon As String
            Dim oldconnection As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("mydbcon")
            Dim dbcon As String = oldconnection.ConnectionString
            Dim builder As New OleDbConnectionStringBuilder(dbcon)
            builder.Add("Data Source", source)
            builder.Add("Password", pass)
            builder.Add("User ID", id)
            newdbcon = builder.ConnectionString
            Dim config As System.Configuration.Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
            config.ConnectionStrings.ConnectionStrings("mydbcon").ConnectionString = newdbcon
            config.Save(ConfigurationSaveMode.Modified)
            ConfigurationManager.RefreshSection("ConnectionStrings")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Subry
    End Sub

f1 = FreeFile
 Open filename For Binary As #f1                     'Open the file
 RawData = Input$(fileLen(filename), #f1)            'read it
 Close #f1                                           'Close it