erreur de creation d'une base

bon,ben..comme ça, ça marche ^^
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
Public Class Form1
 
    Dim str As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        MessageBox.Show(ConString)
 
        Dim dbfile As String = New String("C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\MyDatabaseData.mdf")
        Dim logfile As String = New String("C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\MyDatabaseLog.ldf")
        If (System.IO.File.Exists(dbfile)) Then
            MessageBox.Show("Database Exists, dropping it")
            Try
                myConn.Open()
                Dim dropit As SqlCommand = New System.Data.SqlClient.SqlCommand("DROP DATABASE MyDatabase;", myConn)
                dropit.ExecuteNonQuery()
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            Finally
                If (myConn.State = ConnectionState.Open) Then
                    myConn.Close()
                End If
            End Try
        End If
        str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
              "(NAME = MyDatabase_Data, " & _
              " FILENAME = '" & dbfile & "', " & _
              " SIZE = 3MB, " & _
              " MAXSIZE = 10MB, " & _
              " FILEGROWTH = 10%) " & _
              " LOG ON " & _
              "(NAME = MyDatabase_Log, " & _
              " FILENAME = '" & logfile & "', " & _
              " SIZE = 1MB, " & _
              " MAXSIZE = 5MB, " & _
              " FILEGROWTH = 10%) "
        Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
 
        Try
            myConn.Open()
            myCommand.ExecuteNonQuery()
            MessageBox.Show("Database is created successfully", _
                            "MyProgram", MessageBoxButtons.OK, _
                             MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        Finally
            If (myConn.State = ConnectionState.Open) Then
                myConn.Close()
            End If
        End Try
End sub