diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb
index 63425e7a20b..18e4c4f4f17 100644
--- a/instat/frmMain.Designer.vb
+++ b/instat/frmMain.Designer.vb
@@ -5259,7 +5259,9 @@ Partial Class frmMain
         Me.MainMenuStrip = Me.mnuBar
         Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "frmMain"
-        Me.Text = "R-Instat .."
+        Me.Text = "R-Instat " + My.Application.Info.Version.Major.ToString + "." +
+                My.Application.Info.Version.Minor.ToString + "." +
+                My.Application.Info.Version.Build.ToString
         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
         Me.stsStrip.ResumeLayout(False)
         Me.stsStrip.PerformLayout()
diff --git a/instat/sdgImportFromClimSoft.vb b/instat/sdgImportFromClimSoft.vb
index 397349d9d60..392722acea6 100644
--- a/instat/sdgImportFromClimSoft.vb
+++ b/instat/sdgImportFromClimSoft.vb
@@ -192,11 +192,4 @@ Public Class sdgImportFromClimSoft
         End If
     End Sub
 
-    'Private Sub ucrInputDrv_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrInputDrv.ControlValueChanged
-    '    If Not ucrInputDrv.IsEmpty Then
-    '        clsRDatabaseConnect.AddParameter("drv", ucrInputDrv.GetText, iPosition:=4)
-    '    Else
-    '        clsRDatabaseConnect.RemoveParameterByName("drv")
-    '    End If
-    'End Sub
 End Class