Create Tabla ???

Hola grupo, les muestro, este codigo me da error:

Case Is = "SQLOLEDB.1"

Try

' Crea base de datos SQL.

' Probamos la conexion SQL SERVER 2000

sConexionDB = "Provider=SQLOLEDB.1;" & _

"Data Source=PROGRAMADOR\JRI;" & _

"Initial Catalog=;" & _

"UID=MASHYJRI;" & _

"PWD=MASHYJRI;" & _

"Persist Security Info=True"

Dim ConexionDB As New OleDbConnection(sConexionDB)

' Dim HolaAdo As ADODB.Connection

ConexionDB.Open()

If ConexionDB.State = 1 Then

MessageBox.Show("SQL Server identificado", "Acción Informática",
MessageBoxButtons.OK, MessageBoxIcon.Information)

' Aqui se crea la base de datos inicial o de base.

' Dim mySQL As String = "IF EXISTS (SELECT * FROM master..sysdatabases

Name = 'AI_Seguros.mdf') DROP DATABASE 'AI_Seguros' CREATE DATABASE
'AI_Seguros"

' sCommandDB = "CREATE DATABASE AI_Seguros "

sCommandDB = "CREATE DATABASE MyDatabase ON PRIMARY" & _

" (NAME = MyDatabase_Data," & _

" FILENAME = 'MyDatabaseData.mdf'," & _

" SIZE = 2MB," & _

" MAXSIZE = 10MB," & _

" FILEGROWTH = 10%)" & _

" LOG ON" & _

" (NAME = MyDatabase_Log," & _

" FILENAME = 'MyDatabaseLog.ldf'," & _

" SIZE = 1MB," & _

" MAXSIZE = 5MB," & _

" FILEGROWTH = 10%)"

Dim CommandDB As New OleDbCommand ' (sCommandDB, ConexionDB)

CommandDB.Connection = ConexionDB

CommandDB.CommandText = sCommandDB

CommandDB.ExecuteNonQuery()

' aqui grabamos ini

EscribeIni("c:\AI.ini", "Config", "Proveedor", "SQLOLEDB.1")

EscribeIni("c:\AI.ini", "Config", "Origen", "PROGRAMADOR\JRI")

EscribeIni("c:\AI.ini", "Config", "Catalog", "")

EscribeIni("c:\AI.ini", "Config", "Usuario", "MASHYJRI")

''aqui puedes usar algun metodo para encriptar el pass

EscribeIni("c:\AI.ini", "Config", "Clave", "MASHYJRI")

Return True

MessageBox.Show("La nueva base de datos creaa con exito !",
MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

Return False

End If

ConexionDB.Close()

ConexionDB.Dispose()

Catch OledbExc As OleDbException

MessageBox.Show(OledbExc.ToString, "SQL Exception Error!",
MessageBoxButtons.OK, MessageBoxIcon.Error)

Catch Exc As Exception

MessageBox.Show("SQL Or MSDE Connection Fallada ", MessageBoxButtons.OK,
MessageBoxIcon.Error)

End

End Try

Case Else

EL ERROR QUE ME DA ES EL SIGUIENTE:

PERMISO CREATE DATABASE DENEGADO EN LA BASE DE DATOS 'MASTER'..

DESDE YA GRACIAS...