انشاء قاعدة sql server مع الجداول يالكود في vb.net

PHP كود :
Imports System.Data.SqlClient

Module Module1
    Sub Main()
        ' معلومات الاتصال بقاعدة البيانات (لا تحتوي على اسم قاعدة البيانات)
        Dim connectionString As String = "Server=your_server_name;Integrated Security=true;"
        Dim databaseName As String = "NewDatabase"

        Try
            ' إنشاء قاعدة البيانات
            Using connection As New SqlConnection(connectionString)
                connection.Open()

                Dim createDatabaseQuery As String = $"CREATE DATABASE {databaseName}"

                Using command As New SqlCommand(createDatabaseQuery, connection)
                    command.ExecuteNonQuery()
                    Console.WriteLine("Database created successfully.")
                End Using
            End Using

            ' سلسلة الاتصال مع اسم قاعدة البيانات الجديدة
            Dim connectionStringWithDb As String = $"Server=your_server_name;Database={databaseName};Integrated Security=true;"

            ' إنشاء الجداول في قاعدة البيانات الجديدة
            Using connection As New SqlConnection(connectionStringWithDb)
                connection.Open()

                ' استعلام لإنشاء الجدول الأول
                Dim createTable1Query As String = "
                    CREATE TABLE Customers (
                        CustomerID INT PRIMARY KEY IDENTITY(1,1),
                        FirstName NVARCHAR(50),
                        LastName NVARCHAR(50),
                        Email NVARCHAR(100)
                    )"

                Using command As New SqlCommand(createTable1Query, connection)
                    command.ExecuteNonQuery()
                    Console.WriteLine("Table 'Customers' created successfully.")
                End Using

                ' استعلام لإنشاء الجدول الثاني
                Dim createTable2Query As String = "
                    CREATE TABLE Orders (
                        OrderID INT PRIMARY KEY IDENTITY(1,1),
                        OrderDate DATETIME,
                        CustomerID INT,
                        Amount DECIMAL(18, 2),
                        FOREIGN KEY (CustomerID) REFERENCES Customers(CustomerID)
                    )"

                Using command As New SqlCommand(createTable2Query, connection)
                    command.ExecuteNonQuery()
                    Console.WriteLine("Table 'Orders' created successfully.")
                End Using
            End Using
        Catch ex As Exception
            Console.WriteLine("An error occurred: " & ex.Message)
        End Try
    End Sub
End Module