'Open File Location
        OpenFileDialog1.ShowDialog()
        lblLocation.Text = OpenFileDialog1.FileName
        'Set Save location
        SaveFileDialog1.FileName = OpenFileDialog1.FileName
        'Set file filters
        SaveFileDialog1.Filter = "PDF(*.pdf)|*.pdf|Word Document old(*.doc)|*.doc|Excel(*.xls)|*.xls|All Files(*.*)|*.*"

Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim connection As IConnectionInfo
        Dim OldServerName As String = [OLD Servername]
        Dim NewServerName As String = [NEW SERVERName]
        Dim

Could not load file or assembly 'CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, Public Key Token=692fbea5521e1304' or one of its dependencies. The system cannot find the file specified.

Data Source=localhost;Initial Catalog=dbName;Persist Security Info=True;Integrated Security=SSPI

 
 Private Function GetAsTwoDigit(ByVal val As String) As String

        If val.Length = 1 Then
            Return "0" & val
        Else
            Return val
        End If

    End Function