Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnCreateDatabase.Click

    Dim reader As SqlDataReader

    Dim str As String



    Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;" & _

                                                    "uid=sa;pwd=;database=master")



    str = "CREATE DATABASE MyDatabase ON PRIMARY " & _

          "(NAME = MyDatabase_Data, " & _

          " FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _

          " SIZE = 2MB, " & _

          " MAXSIZE = 10MB, " & _

          " FILEGROWTH = 10%) " & _

          " LOG ON " & _

          "(NAME = MyDatabase_Log, " & _

          " FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _

          " SIZE = 1MB, " & _

          " MAXSIZE = 5MB, " & _

          " FILEGROWTH = 10%) "



    Dim myCommand As SqlCommand = New SqlCommand(str, myConn)



Try

        myConn.Open()

        reader = myCommand.ExecuteReader()

    Catch ex As Exception

        MessageBox.Show(ex.ToString())

Finally

        If Not reader Is Nothing Then

reader.Close()

            If (myConn.State = ConnectionState.Open) Then

                myConn.Close()

End If

            MessageBox.Show("Database is created successfully", _

                            "MyProgram", MessageBoxButtons.OK, _

                            MessageBoxIcon.Information)

End If

End Try

End Sub