Dynamically generate connestion String Using Script Task IN SSIS

Dynamically generate connestion String Using Script Task
(visual basic)

Public Sub Main()

Dts.Variables("Destn").Value = "Data Source=" & Dts.Variables("ServerName").Value.ToString & ";User ID=" & Dts.Variables("DBUserName").Value.ToString & ";Password =" & Dts.Variables("DBPwd").Value.ToString & ";initial Catalog=" & Dts.Variables("DBName").Value.ToString & ";Provider=SQLNCLI10.1;Persist Security Info=True;Auto Translate=False;Auto Translate=False;"

Dts.TaskResult = ScriptResults.Success

End Sub


Where Destn, ServerName, DBUserName, DBPwd, DBName are SSIS Variables