Code:
Sub CreateDatabase(ByVal dbName As String)

    Dim connectionString As String = "server='(local)'; trusted_connection=true; database='DNScards'"
    Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)

    Try
        dim cmdCreate as string = "CREATE DATABASE [" & dbName & "]"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        dbCommand.CommandText = cmdCreate
        dbCommand.Connection = dbConnection

        dbConnection.Open
        dbCommand.ExecuteNonQuery
    Finally
        dbConnection.Close
    End Try
End Sub
any one see any problems with my code? dosent give me any errors, but also dosent work, tho i think it should, please help mr fix it