[عبدالله الدوسري]

أحذف الأقواس من كلمة (Local)

كود :

Dim con As SqlConnection = New SqlConnection("Data Source=Local\SQLEXPRESS;Initial Catalog = Manager_Files;integrated security=true")

أو ضع نقطة فقط . وجرب 

كود :

Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog = Manager_Files;integrated security=true")