[Hamoody]

اولا مشكور على الرد 
ثانيا أنا قصدي اني انا احفظ ملف الإسكريبت في مجلد Debug و أول ما البرنامج يشتغل يروح يشيك على قاعدة البيانات هل فيها الملف لو فيها خلاص و لو ما فيها يبدأ ينفذ الإسكريبت و ينشئ قاعدة البيانات

المهم انا عملت كود بس المشكله انه بيقرأ الإسكربت كله كسطر واحد و بيديني خطأ 

كود :

 Dim conn As String = "Data Source=.\SQLEXPRESS;Integrated Security=True"
                       Dim script As VariantType = File.ReadAllText(Application.StartupPath + "\SQLScript.sql")
                       Dim co As SqlConnection = New SqlConnection(conn)
                       Dim servdddder As Management.Smo.Server = New Management.Smo.Server(New ServerConnection(co))
                       Dim Server_conn As Microsoft.SqlServer.Management.Smo.Server = New Microsoft.SqlServer.Management.Smo.Server(New ServerConnection(co))
                       servdddder.ConnectionContext.ExecuteNonQuery(script)

بس زي ماهو واضح مش بينفذ الإسكربت 
فيه كود معمول بالc# لو احد من يعرف يحوله للفيجوال يبقى فنان

كود :

   Dim script As String = File.ReadAllText(Application.StartupPath + "\SQLScript.sql")
                       Dim sqlqueries As String = script.Split(New[] {"GO"}, StringSplitOptions.RemoveEmptyEntries)
                       Dim conn As String = "Data Source=.\SQLEXPRESS;Integrated Security=True"
                       Dim CMD1 As New SqlClient.SqlCommand("query", connSQLServer)

                       connSQLServer.Open()

                       foreach(var qurey As VariantType)
                       {
                       CMD1.CommandText = qurey
                       CMD1.ExecuteNonQuery()
                       }
                        connSQLServer.Close()