Im getting this exception when trying to create a database using an sql script...

sql script:
Code:
IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'DBTest2')
DROP DATABASE [DBTest2]

CREATE DATABASE [DBTest2]  

exec sp_dboption N'DBTest2', N'autoclose', N'true'


exec sp_dboption N'DBTest2', N'bulkcopy', N'false'


exec sp_dboption N'DBTest2', N'trunc. log', N'true'


exec sp_dboption N'DBTest2', N'torn page detection', N'true'


exec sp_dboption N'DBTest2', N'read only', N'false'


exec sp_dboption N'DBTest2', N'dbo use', N'false'


exec sp_dboption N'DBTest2', N'single', N'false'


exec sp_dboption N'DBTest2', N'autoshrink', N'true'


exec sp_dboption N'DBTest2', N'ANSI null default', N'false'


exec sp_dboption N'DBTest2', N'recursive triggers', N'false'


exec sp_dboption N'DBTest2', N'ANSI nulls', N'false'


exec sp_dboption N'DBTest2', N'concat null yields null', N'false'


exec sp_dboption N'DBTest2', N'cursor close on commit', N'false'


exec sp_dboption N'DBTest2', N'default to local cursor', N'false'


exec sp_dboption N'DBTest2', N'quoted identifier', N'false'


exec sp_dboption N'DBTest2', N'ANSI warnings', N'false'


exec sp_dboption N'DBTest2', N'auto create statistics', N'true'


exec sp_dboption N'DBTest2', N'auto update statistics', N'true'


use [DBTest2]


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_HRM_AreaTematica_HRM_AreaEducForm]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[HRM_AreaTematica] DROP CONSTRAINT FK_HRM_AreaTematica_HRM_AreaEducForm


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_HRM_AreaEducForm_HRM_AreaEstudo]') and OBJECTPROPERTY(id, N'IsForeignKey') = 1)
ALTER TABLE [dbo].[HRM_AreaEducForm] DROP CONSTRAINT FK_HRM_AreaEducForm_HRM_AreaEstudo


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[HRM_Apetrechamento]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[HRM_Apetrechamento]


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[HRM_AreaEducForm]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[HRM_AreaEducForm]


if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[HRM_AreaEstudo]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[HRM_AreaEstudo]


CREATE TABLE [dbo].[HRM_Apetrechamento] (
	[id] [int] IDENTITY (1, 1) NOT NULL ,
	[ref] [varchar] (50) COLLATE Latin1_General_CI_AS NOT NULL ,
	[ref_id] [int] NOT NULL ,
	[designacao] [varchar] (50) COLLATE Latin1_General_CI_AS NULL ,
	[quantidade] [int] NULL ,
	[observacoes] [varchar] (250) COLLATE Latin1_General_CI_AS NULL 
) ON [PRIMARY]


CREATE TABLE [dbo].[HRM_AreaEducForm] (
	[id] [int] IDENTITY (1, 1) NOT NULL ,
	[codigo] [varchar] (4) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
	[designacao] [varchar] (150) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
	[areaestudo_id] [int] NOT NULL 
) ON [PRIMARY]


CREATE TABLE [dbo].[HRM_AreaEstudo] (
	[id] [int] IDENTITY (1, 1) NOT NULL ,
	[codigo] [varchar] (4) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
	[designacao] [varchar] (150) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
	[grgrupo_id] [int] NOT NULL 
) ON [PRIMARY]


ALTER TABLE [dbo].[HRM_Apetrechamento] WITH NOCHECK ADD 
	CONSTRAINT [PK_HRM_Apetrechamento] PRIMARY KEY  CLUSTERED 
	(
		[id]
	)  ON [PRIMARY] 


ALTER TABLE [dbo].[HRM_AreaEducForm] WITH NOCHECK ADD 
	CONSTRAINT [PK_HRM_AreaEducForm] PRIMARY KEY  CLUSTERED 
	(
		[id]
	)  ON [PRIMARY] 


ALTER TABLE [dbo].[HRM_AreaEstudo] WITH NOCHECK ADD 
	CONSTRAINT [PK_HRM_AreaEstudo] PRIMARY KEY  CLUSTERED 
	(
		[id]
	)  ON [PRIMARY] 


ALTER TABLE [dbo].[HRM_AreaEducForm] ADD 
	CONSTRAINT [FK_HRM_AreaEducForm_HRM_AreaEstudo] FOREIGN KEY 
	(
		[areaestudo_id]
	) REFERENCES [dbo].[HRM_AreaEstudo] (
		[id]
	)


ALTER TABLE [dbo].[HRM_AreaEstudo] ADD 
	CONSTRAINT [FK_HRM_AreaEstudo_HRM_GrGrupos] FOREIGN KEY 
	(
		[grgrupo_id]
	) REFERENCES [dbo].[HRM_GrGrupos] (
		[id]
	)
vb code:
Code:
    Private Sub CreateDB(ByVal value As String)

        Dim objCommand As New SqlClient.SqlCommand()

        With objCommand
            .Connection = _objDataFactory.Connection
            .CommandText = value
            .CommandType = CommandType.Text

            Try
                .ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex)
                Exit Sub
            End Try
        End With

        MsgBox("Completed with no errors.")

    End Sub
Any clue?