ساخت کانکشن با vb.net در sqlserver

[bihoviat]

سلام
من میخوام در برنامه از یک drop down list سرور مورد نیاز انتخاب بشه و فایل اسکریپت ایجاد دیتا بیس اجرا بشه کد های زیر رو نوشتم ولی موفع اجرا روی کانکشن ارور میزنه:



Imports System.Data


Imports System.Data.Sql


Imports System.Data.SqlClient


Imports System.IO



Public Class Form1


Dim Dtb As String


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load



Dim dt As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources


For Each dr As DataRow In dt.Rows


ddlInstances.Items.Add(String.Concat(dr("ServerName"), "\\", dr("InstanceName")))


Next




End Sub




Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click


Dtb = ddlInstances.SelectedItem.ToString


Dim objConnection As SqlConnection = New SqlConnection("server=" & Dtb & ";uid=sa;pwd=password; database=master;")


Dim objCommand As SqlCommand = New SqlCommand()



objConnection.Open()


objCommand.Connection = objConnection


Dim reader As StreamReader = New StreamReader("D:\VB.NET\Matab\Matab 0.4\SQL Scripts\Matab 0.4.sql")


Dim sqlScript As String = reader.ReadToEnd()


Dim command As New SqlCommand(sqlScript, New SqlConnection(objConnection.ToString))


command.ExecuteNonQuery()


objConnection.Close()


End Sub

End Class

[bihoviat]

کسی نیست جواب بده؟