[VB.NET] مشكلة في برنامج vb.net - نسخة قابلة للطباعة

كود :

 Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")

                Con.Open()

                Dim cb3 As String = "Create Database drug"

                cmd = New SqlCommand(cb3)

                cmd.Connection = Con

                cmd.ExecuteNonQuery()

                Con.Close()

                Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DATABASESCRIPT.sql")

                    st = sr.ReadToEnd()

                    Dim server As New Server(New ServerConnection(Con))

                    server.ConnectionContext.ExecuteNonQuery(st)



                End Using

PHP كود :

 Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
            Con.Open()
            Dim cb2 As String = "Select * from sysdatabases where name='drug'"
            Dim cmd As New SqlCommand(cb2)
            cmd.Connection = Con
            Dim rdr As SqlDataReader
            rdr = cmd.ExecuteReader()
            If rdr.Read() Then
                Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
                Con.Open()
                Dim cb1 As String = "Drop Database drug"
                cmd = New SqlCommand(cb1)
                cmd.Connection = Con
                cmd.ExecuteNonQuery()
                Con.Close()
                Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
                Con.Open()
                Dim cb As String = "Create Database drug"
                cmd = New SqlCommand(cb)
                cmd.Connection = Con
                cmd.ExecuteNonQuery()
                Con.Close()
                Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DATABASESCRIPT.sql")
                    st = sr.ReadToEnd()
                    Dim server As New Server(New ServerConnection(Con))
                    server.ConnectionContext.ExecuteNonQuery(st)
                End Using